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1.0  INTRODUCTION 


The  Moderate  Spectral  Atmospheric  Radiance  and  Transfer  (MOSART) 
computer  program  calculates  atmospheric  transmission  and  radiation  in  the 
ultraviolet  through  the  microwave  spectral  regions  (0.2  |j,m  to  infinity  or 
0  -  50,000  cm'^).  The  spectral  resolution  is  variable  from  a  value  of  2  cm  ’  upward 
in  increments  of  1  cm  ’.  It  contains  features  which  have  been  extracted  from  the 
MODTRAN  code  developed  by  the  Geophysics  Division  (PL/GPOS)  of  the  Air  Force 
Phillips  Laboratory  and  the  APART  code  developed  by  Photon  Research  Associates 
(PRA).  MODTRAN  is  widely  used  in  many  different  atmospheric  studies,  both  within 
and  without  the  DoD.  Since  APART  was  developed  to  provide  atmospheric 
calculations  for  infrared  (IR)  signature  studies  of  both  targets  and  backgrounds,  it 
has  many  features  that  are  desirable  for  large  simulation  models.  Because  of  the 
requirement  that  MOSART  be  compatible  with  various  codes  used  in  the  SSGM 
(Strategic  Scene  Generation  Model),  the  overall  structure  of  this  version  of 
MOSART  closely  follows  that  of  APART.  However,  MOSART  contains  all  the 
MODTRAN  atmospheric  features  and  is  easily  used  for  that  code’s  usual  point-to- 
point  calculations. 

This  volume  of  the  Users  Manual  provides  the  user  with  the  information  on 
the  structure  of  the  code.  The  other  volumes  in  the  Users  Manual  describe 
installation  of  MOSART  (Vol.  I),  executing  the  code  (Vol.  II),  and  technical 
discussion  (Vol.  III). 

MOSART  and  its  utility  programs  are  written  in  ANSI  X3. 9-1 978  FORTRAN 
(FORTRAN  77)  and  are  very  portable  programs.  The  source  code  delivered  with 
MOSART  includes: 

FPTEST: 

INSTDB: 

MOSART: 

PLTGEN: 

ASCBIN: 

CRFILE: 

MRFLTR: 

BBTEMP: 

VISUAL: 

SGNGEN: 

FACET: 

TERTEM: 


Test  machine  dependent  operations 

Installs  direct  access  binary  data  bases 

Is  the  main  MOSART  program 

Makes  graphs  of  the  results 

Converts  binary  files  to  ASCII  and  vice-versa 

Assists  in  preparing  the  MOSART  input  file 

Degrades  the  spectral  output  using  a  filter  function 

Converts  radiance  to  equivalent  blackbody  temperatures 

Converts  visible  radiances  to  luminances  and  determines 

color 

Creates  statistical  scenes 

Calculates  the  signature  of  simple  geometric  shapes 
Calculates  terrain  material  temperatures 
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2.0  DATA  FLOW  AND  SYSTEM  STRUCTURE 


The  overview  of  the  MOSART  system  architecture  and  the  basic  data  flow  are 
discussed  below. 

2.1  Software  Architecture  Overview 


Version  1 .40  of  the  MOSART  code  consists  of  96,847  lines  of  code.  It  is 
comprised  of  a  main  program,  154  subroutines,  86  real  functions,  9  double  precision 
functions,  1  logical  function,  6  complex  functions,  13  integer  functions,  3  character 
functions,  and  59  BLOCK  DATA  modules.  It  also  accesses  up  to  14  direct  access 
binary  data  files  and  utilizes  up  to  2  scratch  files.  An  architecture  diagram  is  shown 
in  Figure  1. 

The  MOSART  code  is  supported  by  several  codes.  These  are: 

•  ASCBIN  provides  ASCII-binary  conversion  and  creates  spectral  tables.  It 
consists  of  the  4,733  lines  of  code.  It  is  comprised  of  a  main  program,  16 
subroutines,  7  real  functions,  2  integer  functions,  4  double  precision 
functions,  3  character  functions,  and  3  BLOCK  DATA  modules. 

•  BBTEMP  converts  radiance  to  equivalent  blackbody  temperatures.  It  consists 
of  7,207  lines  of  code.  It  is  comprised  of  a  main  program,  14  subroutines, 
9  real  functions,  4  double  precision  functions,  2  integer  functions,  3  character 
functions,  and  5  BLOCK  DATA  modules. 

•  CRFILE  creates  the  various  input  files.  It  consists  of  9,170  lines  of  code.  It 
is  comprised  of  a  main  program,  34  subroutines,  13  real  functions,  3 
character  functions,  3  integer  functions,  1  double  precision  function,  and  9 
BLOCK  DATA  modules. 

•  FACET  calculates  the  signature  of  simple  geometric  objects.  It  consists  of 
8,551  lines  of  code.  It  is  comprised  of  a  main  program,  17  subroutines,  14 
real  functions,  6  double  precision  functions,  3  character  functions,  2  integer 
functions,  2  complex  functions,  and  5  BLOCK  DATA  modules. 

•  FPTEST  tests  various  machine-dependent  parameters  prior  to  installation  of 
the  other  codes.  It  consists  of  2,614  lines  of  code.  It  is  comprised  of  a  main 
program,  5  subroutines,  5  real  functions,  4  double  precision  functions,  1 
logical  function,  1  integer  function,  1  character  function,  and  1  BLOCK  DATA 
module. 
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Figure  1.  MOSART  Architecture. 


•  INSTD  installs  the  direct  access  binary  data  bases.  It  consists  of  2,709  lines 
of  code.  It  is  comprised  of  a  main  program,  5  subroutines,  1  integer  function, 
2  character  functions,  and  3  BLOCK  DATA  modules. 

•  MRFLTR  spectrally  integrates  a  MOSART  binary  output  file  over  a  different 
spectral  interval  or  with  a  different  filter  function.  It  consists  of  27,865  lines 
of  code.  It  is  comprised  of  a  main  program,  63  subroutines,  15  real  functions 
4  double  precision  functions,  11  integer  functions,  3  character  functions,  and 
14  BLOCK  DATA  modules. 

•  PLTGEN  provides  spectral  plots  using  the  NCAR  plotting  software  package. 
It  consists  of  2,342  lines  of  code.  It  is  comprised  of  a  main  program,  8 
subroutines,  3  character  functions,  1  integer  function,  and  2  BLOCK  DATA 
modules. 

•  SCNGEN  creates  statistical  two-dimensional  scenes.  It  consists  of  3,625 
lines  of  code.  It  is  comprised  of  a  main  program,  12  subroutines,  12  real 
functions,  4  double  precision  functions,  3  integer  functions,  and  3  character 
functions. 

•  TERTEM  calculates  terrain  material  temperatures.  It  consists  of  10,853  lines 
of  code.  It  is  comprised  of  a  main  program,  16  subroutines,  20  real 
functions,  4  double  precision  functions,  4  integer  functions,  3  character 
functions,  and  8  BLOCK  DATA  modules. 

•  VISUAL  converts  radiance  to  luminance  in  the  visible  spectral  region.  It 
consists  of  6,834  lines  of  code.  It  is  comprised  of  a  main  program,  16 
subroutines,  5  real  functions,  4  double  precision  functions,  2  integer 
functions,  1  character  function,  and  4  BLOCK  DATA  modules. 

2.2  Data  Flow 


The  basic  data  flow  is  presented  in  Figure  2. 
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Figure  2.  Basic  Data  Flow. 
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Figure  2.  Basic  Data  Flow  (continued). 


3.0  MODULE  STRUCTURE  DESCRIPTION 


The  module  structure  descriptions  for  the  MOSART  program  and  related  utility 
codes  are  presented  below. 

3.1  MOSART 


The  subroutines  and  functions  contained  in  the  MOSART  program  are  listed 
below  in  alphabetical  order.  In  addition  to  a  brief  description  of  each  routine,  the 
Creation  Date  and  Revision  Data  for  each  routine  is  provided. 


REAL  FUNCTION  ABCCL4 
Created  on:  Wed  May  25  15:44:44  1994 
Revised  on:  Mon  Nov  7  14:33:47  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  cross-section  for  CCI4. 


REAL  FUNCTION  ABHN04 
Created  on:  Wed  May  25  15:44:44  1994 
Revised  on:  Mon  Nov  7  14:33:47  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  cross-section  for  HN04. 

REAL  FUNCTION  ABN205 
Created  on:  Wed  May  25  15:44:44  1994 
Revised  on:  Mon  Nov  7  14:33:47  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  cross-section  for  N205. 


% 


REAL  FUNCTION  ABSCFC 
Created  on:  Wed  May  25  15:44:44  1994 
•  Revised  on:  Mon  Nov  7  14:33:48  1994 

Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  cross-section  for  the  chloro-fluorocarbons. 
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REAL  FUNCTION  ABSCLO 
Created  on:  Wed  May  25  15:44:44  1994 
Revised  on:  Mon  Nov  7  14:33:47  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  cross-section  for  CCI4. 


« 


REAL  FUNCTION  ABSH20 
Created  on:  Wed  Nov  18  15:40:09  1992 
Revised  on:  Tue  Mar  1  07:55:51  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  water  vapor  absorption  coefficient. 

SUBROUTINE  ABSMOL 
Created  on:  Wed  Nov  18  15:40:13  1992 
Revised  on:  Tue  Nov  22  09:07:10  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  molecular  absorption  coefficients. 


REAL  FUNCTION  ABSN2 
Created  on:  Wed  Nov  18  15:40:19  1992 
Revised  on:  Tue  Mar  1  07:55:53  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  LOWTRAN  nitrogen  continuum. 


REAL  FUNCTION  ABSN20 
Created  on:  Wed  Nov  18  15:40:22  1992 
Revised  on:  Thu  Feb  11  15:22:53  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  nitrogen  oxide  absorption  coefficient. 
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REAL  FUNCTION  ABSN02 
Created  on:  Wed  Nov  18  15:44:44  1992 
Revised  on:  Tue  May  24  13:18:17  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  cross-section  for  N02. 


SUBROUTINE  ABS02 
Created  on:  Wed  Nov  18  15:40:32  1992 
Revised  on:  Mon  Aug  2  11:07:08  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  Herzberg  and  Schumann-Runge  02  absorption 
coefficient. 


REAL  FUNCTION  ABS03 
Created  on:  Wed  Nov  18  15:40:35  1992 
Revised  on:  Wed  Jun  15  14:01:02  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  Hartley  Huggins  and  ChappuisA/Vulf  03  absorption 
coefficient. 


REAL  FUNCTION  ABSS02 
Created  on:  Wed  Nov  18  15:44:44  1992 
Revised  on:  Tue  May  24  13:18:17  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  cross-section  for  S02. 


SUBROUTINE  AECALC 
Created  on:  Wed  Nov  18  15:58:19  1992 
Revised  on:  Tue  May  9  10:03:08  1995 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  solar  absorptivity  and  thermal  emissivity  from  a 
reflectivity  curve. 
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SUBROUTINE  AERSOL 
Created  on:  Wed  Nov  18  15:40:40  1992 
Revised  on:  Wed  Oct  26  11:04:56  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  absorption  and  scattering  coefficients  for  the 
aerosol,  normalized  to  unity  for  extinction  at  a  wavelength  of  0.55  pm. 


REAL  FUNCTION  AH202 
Created  on:  Wed  Nov  18  15:40:46  1992 
Revised  on:  Tue  May  4  09:19:42  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  absorption  coefficient  for  a  combination  of  hydrogen 
and  deuterium  peroxide. 


REAL  FUNCTION  AIRTMP 
Created  on:  Wed  Nov  18  15:40:54  1992 
Revised  on:  Mon  May  17  17:33:13  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  local  surface  air  temperature  (K)  at  a  particular  time 
of  day.  If  the  user  has  supplied  a  reference  temperature  for  a  given  time, 
temperatures  for  other  times  are  calculated  as  differences  from  the  user-supplied 
temperature. 


SUBROUTINE  AMMNIA 
Created  by:  Dr.  William  M.  Cornette 
Created  on:  14  October  1993 
Revised  on:  Tue  Nov  2  10:42:56  1993 

This  SUBROUTINE  determines  the  band  model  parameters  for  ammonia  between 
3050  and  3600  wavenumbers. 
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REAL  FUNCTION  AMOLSC 
Created  on:  Wed  Nov  18  16:05:47  1992 
Revised  on:  Thu  Jun  23  12:43:46  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  scattering  coefficient  due  to  molecular  scattering. 

Reference:  Cornette,  "Suggested  modification  to  the  total  volume  molecular 
scattering  coefficient  in  LOWTRAN,"  Applied  Optics,  Vol.  19  (1980),  pp  A182-3. 


SUBROUTINE  ASPECT 
Created  on:  Wed  Nov  18  15:41:01  1992 
Revised  on:  Mon  Nov  7  14:34:11  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  skyshine  angles. 


SUBROUTINE  ATMPRN 
Created  on:  Wed  Nov  18  15:41:08  1992 
Revised  on:  Tue  Nov  22  09:07:10  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  prints  out  the  atmospheric  parameters  for  the  atmospheric 
sub-file. 

DOUBLE  PRECISION  FUNCTION  BAND 
Created  on:  Wed  Nov  18  15:41:17  1992 
Revised  on:  Mon  Nov  7  14:34:12  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  transmittance  from  the  desired  band  model. 
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SUBROUTINE  BBARSL 
Created  on:  Tue  May  4  09:14:26  1993 
Revised  on:  Mon  Nov  7  14:34:11  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  broadband  (solar  and  thermal)  coefficients  for 
the  aerosols. 


REAL  FUNCTION  BB03 

Created  on:  Wed  Nov  18  15:41:20  1992 

Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  ozone  absorption  from  Lacis  &  Hansen  (1974). 


SUBROUTINE  BCKCHK 
Created  on:  Wed  Nov  18  15:41:24  1992 
Revised  on:  Thu  Jun  23  12:43:51  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  if  the  observer  is  looking  into  the  sun  or  the  moon. 


SUBROUTINE  BCKGND 
Created  on:  Wed  Nov  18  15:41:27  1992 
Revised  on:  Tue  Nov  22  09:07:15  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  background  radiance. 

SUBROUTINE  BCKPRN 
Created  on:  Wed  Nov  18  15:41:32  1992 
Revised  on:  Tue  Nov  22  09:07:09  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  prints  out  the  atmospheric  parameters. 
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REAL  FUNCTION  BDRF 
Created  on:  Wed  Nov  18  15:41:37  1992 
Revised  on:  Tue  Nov  2  10:42:28  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  incoherent  bidirectional  reflectance  function  for  a 
rough  opaque  surface. 

SUBROUTINE  BEAUFT 
Created  on:  Wed  Nov  18  15:41:40  1992 
Revised  on:  Thu  Jun  23  12:43:35  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  ocean  parameters  as  a  function  of  wind  speed. 
Reference:  Smithsonian  Table  36,  Beaufort  Wind  Scale 


REAL  FUNCTION  BETA 
Created  on:  Wed  Nov  18  15:41:43  1992 
Revised  on:  Thu  Jun  23  12:43:46  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  computes  the  average  backscattered  fraction.  The  current  routine 
uses  the  Cornette-Shanks  phase  function.  The  parameters  and  algorithms  for  the 
Henyey-Greenstein  phase  function  are  commented  out  with  ’CHG’. 

REAL  FUNCTION  BETAU 
Created  on:  Wed  Nov  18  15:41:46  1992 
Revised  on:  Fri  Jul  1  15:08:49  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  computes  the  zenith  angle  dependent  backscattered  fraction.  The 
routine  currently  uses  the  Cornette-Shanks  phase  function.  The  parameters  and 
algorithms  for  the  Henyey-Greenstein  phase  function  are  commented  out  with 
’CHG’. 
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SUBROUTINE  BINFIL 
Created  on:  Wed  Nov  18  15:41:53  1992 
Revised  on:  Tue  Nov  22  09:07:02  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  OPENs  the  binary  output  files. 


SUBROUTINE  BMOD 
Created  on:  Wed  Nov  18  15:41:55  1992 
Revised  on:  Mon  Nov  7  14:33:46  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  obtains  the  band  parameters. 


SUBROUTINE  BNDMLG 
Created  on:  Wed  Nov  18  15:42:02  1992 
Revised  on:  Mon  Nov  7  14:33:45  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  multiple  line  group  (MLG)  partition  function. 


SUBROUTINE  BNDPAR 
Created  on:  Wed  Nov  18  15:42:07  1992 
Revised  on:  Tue  Nov  22  09:07:15  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  band  parameters  for  all  of  the  molecular  types, 
molecular  scattering,  aerosol  extinction,  hydrometeors  (clouds,  fog  and  rain),  and 
cirrus  clouds. 


SUBROUTINE  BNTPTH 
Created  on:  Wed  Nov  18  15:42:12  1992 
Revised  on:  Wed  Jun  15  14:01:00  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  initializes  the  summing  variables  for  the  second  leg  of  a  path. 
The  final  variables  for  the  first  leg  are  used  as  the  starting  points  for  the  second 
leg. 
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SUBROUTINE  BRBNDR 
Created  on:  Wed  Nov  18  15:42:16  1992 
Revised  on:  Tue  Nov  22  09:07:09  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  directs  the  processing  sequence  for  all  "Broad-band" 
submodules. 


SUBROUTINE  CALCUL 
Created  on:  Wed  Nov  18  15:42:32  1992 
Revised  on:  Tue  Nov  22  09:07:01  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  is  the  driver  for  calculating  the  MOSART  binary  files. 


SUBROUTINE  CALEND 
Created  on:  Wed  Nov  18  15:42:35  1992 
Revised  on:  Mon  Apr  25  08:34:57  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  changes  a  day/month/year  date  to  the  day  of  the  year  and  the 
decimal  year,  or  day  of  the  year  to  day/month/year  and  decimal  year. 


SUBROUTINE  CHANGE 
Created  on:  Wed  Nov  18  15:58:51  1992 
Revised  on:  Mon  Apr  25  08:34:57  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  modifies  a  standard  molecular  concentration  profile  for  temporal 
variations. 


SUBROUTINE  CHKRST 
Created  on:  Wed  Nov  18  15:42:38  1992 
Revised  on:  Tue  Apr  5  17:30:10  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  if  a  restart  is  required  and  if  so,  where  it  should 
start. 
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SUBROUTINE  CHKVER 
Created  on:  Wed  Nov  18  15:42:41  1992 
Revised  on:  Tue  Nov  2  10:43:18  1993 
Created  by:  Dr.  William  M.  Cornette 

Since  VAX  computer  save  different  versions  of  the  binary  files,  this  SUBROUTINE 
checks  to  insure  that  the  ones  OPENed  for  summary  were  created  at  the  same 
time.  This  is  accomplished  by  comparing  the  heading  and  the  title.  If  the  file  does 
not  correspond  to  the  source  file,  then  it  is  CLOSEd. 


SUBROUTINE  CHTIME 

Created  on:  Wed  Nov  18  15:42:44  1992 

Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  converts  decimal  time  to  hours,  minutes,  and  seconds,  and 
vice-versa. 


REAL  FUNCTION  CIREX 
Created  on:  Wed  Nov  18  15:42:55  1992 
Revised  on:  Thu  Jun  23  12:43:34  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  extinction  coefficient  for  a  cirrus  cloud. 


SUBROUTINE  CIRRUS 
Created  on:  Wed  Nov  18  15:42:58  1992 
Revised  on:  Thu  Jun  23  12:43:08  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  defines  the  default  parameters  for  the  cirrus  cloud  models. 


SUBROUTINE  CITIES 
Created  on:  13  October  1994 
Revised  on:  Wed  Apr  26  17:06:26  1995 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  if  a  given  latitude/longitude  is  located  with  a  specific 
set  of  urban  areas. 
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SUBROUTINE  CLDALT 
Created  on:  Wed  Nov  18  15:43:02  1992 
Revised  on:  Thu  Jun  23  12:42:56  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  cloud  altitudes  for  the  low,  middle,  and  high  etage 
cloud  layers. 


SUBROUTINE  CLDLYR 
Created  on:  Wed  Nov  18  15:43:11  1992 
Revised  on:  Tue  May  4  09:18:15  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  computes  the  optical  properties  for  cloud  layers;  i.e.,  scattering 
optical  depth  and  backscattering  fraction. 


SUBROUTINE  CNSTNT 
Created  on:  Wed  Nov  18  15:43:15  1992 
Revised  on:  Thu  Jun  23  12:43:31  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  initializes  the  constants  for  the  program.  Some  of  these  are 
provided  in  the  commented  out  INTRINSIC  and  EXTERNAL  Declarations.  If  your 
computer  uses  one  not  listed,  please  contact  Dr.  William  M.  Cornette. 

Certain  routines  are  available  for  determining  appropriate  numerical  constants. 
These  should  be  used  if  available. 
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REAL  FUNCTION  ADD 


The  following  eight  (8)  functions  are  used  by  CNSTNT  to  force  the  storage  of 
numbers  into  their  standard  format.  Some  computers  (e.g.,  IBM  PC  Lahey)  use  a 
greater  precision  for  internal  register  manipulation. 

Created  on:  15  February  1993 
Revised  on:  Thu  Jun  23  12:43:31  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  performs  the  addition  of  two  REAL  variables  to  work  around  the 
way  some  computers  perform  certain  calculations  in  their  registers  with  greater 
accuracy  than  they  store. 


REAL  FUNCTION  SUB 
Created  on:  15  February  1993 
Revised  on:  Thu  Jun  23  12:43:31  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  performs  the  subtraction  of  two  REAL  variables  to  work  around  the 
way  some  computers  perform  certain  calculations  in  their  registers  with  greater 
accuracy  than  they  store. 


REAL  FUNCTION  MUL 
Created  on:  23  August  1993 
Revised  on:  Thu  Jun  23  12:43:31  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  performs  the  multiplication  of  two  REAL  variables  to  work  around 
the  way  some  computers  perform  certain  calculations  in  their  registers  with  greater 
accuracy  than  they  store. 


r 
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REAL  FUNCTION  DIV 
Created  on:  23  August  1993 
Revised  on:  Thu  Jun  23  12:43:31  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  performs  the  division  of  two  REAL  variables  to  work  around  the 
way  some  computers  perform  certain  calculations  in  their  registers  with  greater 
accuracy  than  they  store. 


DOUBLE  PRECISION  FUNCTION  DADD 
Created  on:  15  February  1993 
Revised  on:  Thu  Jun  23  12:43:31  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  performs  the  addition  of  two  DOUBLE  PRECISION  variables  to 
work  around  the  way  some  computers  perform  certain  calculations  in  their  registers 
with  greater  accuracy  than  they  store. 


DOUBLE  PRECISION  FUNCTION  DSUB 
Created  on:  15  February  1993 
Revised  on:  Thu  Jun  23  12:43:31  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  performs  the  subtraction  of  two  DOUBLE  PRECISION  variables  to 
work  around  the  way  some  computers  perform  certain  calculations  in  their  registers 
with  greater  accuracy  than  they  store. 


DOUBLE  PRECISION  FUNCTION  DMUL 
Created  on:  23  August  1993 
Revised  on:  Thu  Jun  23  12:43:31  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  performs  the  multiplication  of  two  DOUBLE  PRECISION  variables 
to  work  around  the  way  some  computers  perform  certain  calculations  in  their 
registers  with  greater  accuracy  than  they  store. 
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DOUBLE  PRECISION  FUNCTION  DDIV 
Created  on:  23  August  1993 
Revised  on:  Thu  Jun  23  12:43:31  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  performs  the  division  of  two  DOUBLE  PRECISION  variables  to 
work  around  the  way  some  computers  perform  certain  calculations  in  their  registers 
with  greater  accuracy  than  they  store. 


INTEGER  FUNCTION  IBITS 
Created  on:  11  February  1993 
Revised  on:  Thu  Jun  23  12:43:31  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  duplicates  the  MIL-STD-1753  INTRINSIC  FUNCTION  IBITS  using 
the  MIL-STD-1753  INTRINSIC  FUNCTIONS  IBSET,  IBCLR,  and  BTEST.  IBM  VS 
FUNCTIONS  include  the  latter  three,  but  not  the  FUNCTION  IBITS. 


SUBROUTINE  COAT 
Created  on:  Wed  Nov  18  15:43:18  1992 
Revised  on:  Tue  Nov  2  10:42:53  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  absorption  and  scattering  efficiencies  for  a  coated 
sphere.  For  given  radii  and  refractive  indices  of  inner  and  outer  spheres,  refractive 
index  of  surrounding  medium,  and  free  space  wavelength,  COAT  calculates  size 
parameters  and  relative  refractive  indices. 


REAL  FUNCTION  COMFNC 
Created  on:  Wed  Nov  18  15:43:22  1992 
Revised  on:  Mon  May  17  17:33:30  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  optical  depth  terms  for  the  plume  data  file. 
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SUBROUTINE  CONFIG 
Created  on:  Wed  Nov  18  15:43:28  1992 
Revised  on:  Mon  Aug  2  11:06:42  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  provides  a  method  for  system  level  setting  of  the  configuration 
of  the  computer  environment. 


INTEGER  FUNCTION  ERROR_HANDLER 
Created  on:  3  December  1992 
Revised  on:  Mon  Aug  2  11:06:42  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  handles  floating  point  error  conditions.  It  presently  STOPs 
execution  if  a  floating  point  error  occurs. 


SUBROUTINE  COUPLE 
Created  on:  Wed  Nov  18  15:43:31  1992 
Revised  on:  Mon  Nov  7  14:33:43  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  multiple  scattering  components. 


COMPLEX  FUNCTION  CPF12 
Created  on:  Wed  Nov  18  15:43:35  1992 
Revised  on:  Tue  Mar  1  07:55:48  1994 
Created  by:  Dr,  William  M.  Cornette 

This  FUNCTION  computes  the  real  (WR)  and  imaginary  (Wl)  parts  of  the  complex 
probability  function  w(z)=exp(-z^)*erfc(-i*z)  in  the  upper  half-plane  z=x+i*y  (i.e.,  for 
y.GE.0.0).  Maximum  relative  error  of  WR.LT.2.0E-06,  that  of  WI.LT. 5. OE-06.  This 
routine  developed  by  J.  Humlicek,  JQSRT,  Vol  21,  p.  309  (1980). 
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REAL  FUNCTION  CSPHFN 
Created  on:  Wed  Nov  18  15:43:39  1992 
Revised  on:  Thu  Jun  23  12:43:33  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  Cornette-Shanks  phase  function.  The 
Henyey-Greenstein  function  is  commented  out  with  ’CHG’. 


REAL  FUNCTION  DBANDS 
Created  on:  Wed  Nov  18  15:43:59  1992 
Revised  on:  Thu  Jun  23  12:43:39  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  maps  the  surface  brightness  of  a  simple  zodiacal  dust  band  model 
for  a  set  of  ecliptic  coordinates.  Contributions  from  three  band  pairs,  nominally 
corresponding  to  the  three  principal  band  pairs  observed  by  IRAS,  are  added  along 
the  line-of-sight.  Output  is  in  W/cm^/sr/cm'L 


SUBROUTINE  DBINIT 
Created  on:  Wed  Nov  18  15:44:05  1992 
Revised  on:  Tue  Nov  22  09:07:04  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  initializes  the  arrays  used  with  respect  to  the  data  bases. 


REAL  FUNCTION  DDIF 

Created  on:  Wed  Nov  18  15:44:23  1992 

Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  three  layer  composite  downward  diffuse  flux  from 
solar  beam  given  individual  layer  downward  diffuse  from  solar  fluxes  and  two-stream 
reflection  and  transmission  functions. 
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SUBROUTINE  DEFALT 
Created  on:  Wed  Nov  18  15:44:19  1992 
Revised  on:  Tue  Nov  22  09:07:02  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  sets  the  default  values  for  the  undefined  input  parameters. 


SUBROUTINE  DEFBCK 
Created  on:  Wed  Nov  18  15:44:29  1992 
Revised  on:  Tue  Nov  22  09:07:14  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  defines  the  background  parameters  for  the  observer-source- 
background  geometry  scenario. 


SUBROUTINE  DEMSXX 
Created  on:  Wed  Nov  18  15:45:03  1992 
Revised  on:  Mon  Nov  7  14:34:13  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  emissivities  EMV  and  EMH  as  a  function  of  angle 
for  a  series  of  dielectric  layers. 


REAL  FUNCTION  DENAIR 
Created  on:  Wed  Nov  18  15:44:33  1992 
Revised  on:  Tue  May  2  16:38:11  1995 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  density  (g/m®)  of  moist  air. 


REAL  FUNCTION  DENWTR 
Created  on:  Wed  Nov  18  15:44:42  1992 
Revised  on:  Mon  May  17  16:41:39  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  density  of  water  as  a  function  of  temperature 
(gm/m®). 
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REAL  FUNCTION  DEPOL 
Created  on:  Fri  May  26  14:38:54  1995 
Revised  on:  Tue  May  30  12:58:08  1995 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  molecular  depolarization  parameter. 

Reference:  D.R.  Bates,  "Rayleigh  scattering  by  air,"  Planet.  Space  Sci.  32,  785-790 
(1984). 


DOUBLE  PRECISION  FUNCTION  DERF 
Created  on:  Wed  Nov  18  15:44:44  1992 
Revised  on:  Fri  Sep  24  13:52:46  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  error  function  by  rational  approximation.  The  error 
is  less  than  1 .5D-07. 


SUBROUTINE  DESAER 
Created  on:  Wed  Nov  18  15:44:51  1992 
Revised  on:  Mon  May  17  17:33:32  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  attenuation  coefficients  and  asymmetry  parameter 
for  the  Desert  aerosol  based  on  the  wind  speed. 


SUBROUTINE  DFLT2 
Created  on:  Wed  Nov  18  15:44:54  1992 
Revised  on:  Thu  Jun  23  12:43:55  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  established  the  defaults  for  the  model  atmosphere,  haze  profile, 
aerosol  types,  and  related  parameters. 
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SUBROUTINE  DFLT8 
Created  on:  Wed  Nov  18  15:44:56  1992 
Revised  on:  Tue  Nov  22  09:07:09  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  default  conditions  for  the  spectral  inputs. 


COMPLEX  FUNCTION  DIREFL 
Created  on:  Wed  Nov  18  15:45:00  1992 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  Fresnel  coefficients  of  a  dielectric  surface. 


SUBROUTINE  DIREMS 
Created  on:  Wed  Nov  18  15:45:03  1992 
Revised  on:  Mon  Nov  7  14:34:14  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  emissivities  EMV  and  EMH  as  a  function  of  angle 
for  a  series  of  dielectric  layers. 


SUBROUTINE  DISEND 

Created  on:  Wed  Nov  23  15:44:44  1994 

Revised  on:  Wed  Nov  23  13:38:09  1994 

Created  by:  Dr.  William  M.  Cornette;  Dr.  Prabhat  K.  Acharya 

This  SUBROUTINE  positions  the  pointer  to  the  end  of  the  DIS  file. 


SUBROUTINE  DISPRN 

Created  on:  Wed  Nov  23  15:44:44  1994 

Revised  on:  Mon  Nov  28  10:08:07  1994 

Created  by:  Dr.  William  M.  Cornette;  Dr.  Prabhat  K.  Acharya 

This  SUBROUTINE  write  the  records  to  the  DIS  file. 
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REAL  FUNCTION  DNDR 
Created  on;  Wed  Nov  18  15:45:05  1992 
Revised  on:  Thu  Jun  23  12:43:28  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  number  of  particles  in  a  radius  interval  according  to 
parameters  of  selected  size  distribution. 


REAL  FUNCTION  DPLDT 
Created  on:  Wed  Nov  18  15:45:10  1992 
Revised  on:  Tue  Nov  2  10:42:50  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  partial  derivative  of  the  spectral  blackbody  curve 
(Planck  function)  (W/cm^/cm'VK). 


SUBROUTINE  DRTLAY 
Created  on:  Wed  Nov  18  15:45:16  1992 
Revised  on;  Tue  Nov  22  09:07:01  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  two  stream  directional  R  and  T  values.  Ref.: 
"The  Two-Stream  Approximation  in  Radiative  Transfer:  Including  the  Angle  of  the 
Incident  Radiation"  J.A.  Coakley  and  P.  Chylek,  JAS  32  (1975)  409-418. 

REAL  FUNCTION  DVINCR 
Created  on:  Wed  Nov  18  15:45:19  1992 
Revised  on:  Mon  Nov  7  14:34:08  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  wavenumber  increment  for  a  defined  wavenumber 
value. 


SUBROUTINE  ECLGAL 
Created  on;  Wed  Nov  18  15:57:42  1992 
Revised  on:  Mon  May  17  17:33:00  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  transforms  the  ecliptic  coordinates  to  galactic  coordinates. 
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REAL  FUNCTION  EHBSLO 

Created  on;  Wed  Nov  18  15:57:53  1992 

Revised  on:  Tue  Nov  2  10:42:25  1993 

This  FUNCTION  calculates  for  positive  X,  EXP(-X)*I0(X),  where  10  is  the  hyperbolic 
(modified)  Bessel  function  of  the  first  kind  and  zeroth  order. 


REAL  FUNCTION  EMISSV 
Created  on:  Wed  Nov  18  15:57:57  1992 
Revised  on:  Mon  Nov  7  14:34:08  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  volumetric  emissivity  appropriate  at  the  distance  and 
wavelength  of  interest  (W/cm^/sr/cm"'). 


COMPLEX  FUNCTION  EMTREF 
Created  on:  Wed  Nov  18  15:58:01  1992 
Revised  on:  Mon  Aug  2  13:13:34  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  effective  index  of  refraction  for  a  mixture  of  two 
dielectric  mediums. 


SUBROUTINE  ENDPT 
Created  on:  Wed  Nov  18  15:58:04  1992 
Revised  on:  Tue  Nov  22  09:07:14  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  end  point  of  a  ray,  given  the  slant  range  or  the 
earth  center  angle,  the  initial  altitude,  and  the  direction. 


SUBROUTINE  EPHEML 
Created  on:  Wed  Nov  18  15:58:07  1992 
Revised  on;  Tue  Mar  1  07:55:53  1994 
Created  by;  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  position  of  the  moon  in  the  sky  and  the  phase  of 
the  moon.  Indices  are  set  if  either  a  lunar  or  a  solar  eclipse  is  possible. 
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SUBROUTINE  EPHEMS 
Created  on:  Wed  Nov  18  15:58:10  1992 
Revised  on:  Mon  Nov  7  14:34:07  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  solar  and  lunar  positions. 


DOUBLE  PRECISION  FUNCTION  EPHTIM 
Created  on:  Wed  Jun  15  14:01:14  1994 
Revised  on:  Tue  Jun  28  08:00:22  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  converts  from  Universal  Time  to  Ephemeris  Time. 


SUBROUTINE  EQABS 
Created  on:  Wed  Nov  18  15:58:42  1992 
Revised  on:  Tue  Nov  22  09:07:14  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  equivalent  absorber  amounts. 


SUBROUTINE  EQUABS 
Created  on:  Wed  Nov  18  15:58:19  1992 
Revised  on:  Tue  Nov  22  09:07:09  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  equivalent  absorber  amounts. 


SUBROUTINE  EQUECL 
Created  on:  Wed  Nov  18  15:58:45  1992 
Revised  on:  Mon  May  17  17:33:06  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  transforms  equatorial  coordinates  to  ecliptical  coordinates. 
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SUBROUTINE  ESFIT 
Created  on:  Wed  Nov  18  15:58:51  1992 
Revised  on:  Mon  Nov  7  14:34:07  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  exponential  sum  fit  for  the  transmittance  function. 
The  Malkmus  band  model  is  used  to  represent  the  transmittance  function. 


REAL  FUNCTION  EVAPOR 

Created  on:  Wed  Nov  18  15:58:59  1992 

Revised  on:  Mon  May  17  16:41:23  1993 

This  FUNCTION  calculates  the  latent  heat  of  evaporation  for  water. 


LOGICAL  FUNCTION  EVEN 

Created  on:  Wed  Nov  18  15:59:02  1992 

Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  if  an  INTEGER  is  even  or  not. 


REAL  FUNCTION  EXGALS 
Created  on:  Wed  Nov  18  15:59:06  1992 
Revised  on:  Mon  May  17  16:41:27  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  extragalactic  radiance  (W/cm^/sr/cm‘^). 


SUBROUTINE  EXOATM 
Created  on:  Wed  Nov  18  15:59:09  1992 
Revised  on:  Tue  May  24  13:18:03  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  loads  the  proper  values  of  temperature  and  pressure  in  the 
arrays  TUX  and  PUX,  respectively  for  the  upper  atmosphere  (i.e.,  above  100  km). 
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REAL  FUNCTION  EXOTMP 
Created  on;  Mon  Jul  23  11:16:1 1  1990 
Revised  on:  Sun  Nov  27  20:47:59  1994 
Created  by;  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  exoatmospheric  temperature  to  be  used  to  select  the 
proper  upper  atmosphere  profile. 


SUBROUTINE  FILOPN 
Created  on:  Wed  Nov  18  15:57:12  1992 
Revised  on:  Tue  Nov  22  09:07:10  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  if  a  user-specified  file  is  to  be  OPENed  or  not.  If 
not,  the  unit  number  is  set  to  0. 


SUBROUTINE  FILRT 
Created  on:  Wed  Nov  18  15:57:15  1992 
Revised  on:  Tue  Nov  22  09:07:03  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  uses  a  file  root  name  to  establish  several  filenames  for  input, 
ASCII  output,  and  binary  output. 


REAL  FUNCTION  FILTER 
Created  on:  Wed  Nov  18  15:57:17  1992 
Revised  on:  Thu  Jun  23  12:43:44  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  filter  response  specified. 


SUBROUTINE  FLSTAT 
Created  on:  Wed  Nov  18  15:57:20  1992 
Revised  on:  Tue  Nov  22  09:07:02  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  status  of  the  binary  data  files. 
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SUBROUTINE  FLUXLW 
Created  on:  Wed  Nov  18  15:57:24  1992 
Revised  on:  Tue  Mar  1  07:55:52  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  computes  the  upward  and  downward  diffuse  fluxes  in  the 
terrestrial  (longwave)  band. 


SUBROUTINE  FRESNL 

Created  on:  Wed  Nov  18  15:57:31  1992 

Revised  on:  Thu  Jun  23  12:43:43  1994 

This  SUBROUTINE  calculates  the  reflectivities  and  transmissivities  for  horizontally 
and  vertically  polarized  electric  fields. 


REAL  FUNCTION  GALRAD 
Created  on:  Wed  Nov  18  15:54:51  1992 
Revised  on:  Mon  May  17  17:33:43  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  spectral  mean  space  background  due  to  diffuse 
galactic  sources  in  W/sr/cmVcm'\ 


REAL  FUNCTION  GAM 

Created  on:  Wed  Nov  18  15:54:53  1992 

Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  three  layer  composite  multiple  reflection  factor,  given 
the  individual  layer  reflection  and  transmission  functions. 


REAL  FUNCTION  GAMMLN 
Created  on:  Wed  Nov  18  15:55:14  1992 
Revised  on:  Thu  Feb  11  15:26:05  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  natural  logarithm  of  the  gamma  function  for  DX  >  0. 
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SUBROUTINE  GBLBCK 
Created  on:  Wed  Nov  18  15:55:55  1992 
Revised  on:  Thu  Jun  23  12:42:56  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  terrain  scene  and  altitude  as  a  function  of 
latitude  and  longitude  for  the  global  data  base. 


SUBROUTINE  GEOM 
Created  on:  Wed  Nov  18  15:55:58  1992 
Revised  on:  Mon  Nov  7  14:34:06  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  geometric  parameters  for  a  specified  ray  path 
through  a  spherically  isotropic  atmosphere. 


SUBROUTINE  GETASP 
Created  on:  Wed  Nov  18  15:56:05  1992 
Revised  on:  Tue  Nov  22  09:07:08  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  in  the  earth/skyshine  aspect  parameters. 


SUBROUTINE  GETATM 
Created  on:  Wed  Nov  18  15:56:13  1992 
Revised  on:  Tue  Nov  22  09:07:08  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  in  the  model  atmosphere  parameters. 


SUBROUTINE  GETBCK 
Created  on:  Wed  Nov  18  15:56:16  1992 
Revised  on:  Tue  Nov  22  09:07:08  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  in  the  terrain  and  background  parameters. 
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SUBROUTINE  GETCLD 
Created  on:  Wed  Nov  18  15:56:23  1992 
Revised  on:  Tue  Nov  22  09:07:08  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  in  the  hydrometeor  (cloud,  fog,  rain,  snow)  parameters. 


SUBROUTINE  GETEXO 
Created  on:  Wed  Apr  3  10:28:25  1991 
Revised  on:  Mon  Nov  7  14:34:14  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  in  the  exoatmospheric  parameters. 


SUBROUTINE  GETGLC 
Created  on:  Wed  Nov  18  15:56:31  1992 
Revised  on:  Tue  Mar  1  07:55:47  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  obtains  the  desired  Gauss-Legendre  coefficients. 


SUBROUTINE  GETPOS 
Created  on:  Wed  Nov  18  15:56:37  1992 
Revised  on:  Tue  Nov  22  09:07:08  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  in  the  source  position  and  time. 


SUBROUTINE  GETSLR 
Created  on:  Wed  Nov  18  15:56:40  1992 
Revised  on:  Tue  Nov  22  09:07:08  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  in  the  solar  and  lunar  data. 
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REAL  FUNCTION  GETVAR 
Created  on:  Wed  Nov  18  15:56:43  1992 
Revised  on:  Mon  Apr  25  08:34:50  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  reads  a  REAL  variable  contained  in  free  format  in  the 
CHARACTER  string  VARIAB. 


SUBROUTINE  GETVEC 
Created  on:  Wed  Nov  18  15:56:47  1992 
Revised  on:  Thu  Jun  23  12:43:24  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  a  REAL  vector  contained  in  free  format  in  the 
CHARACTER  string  VARIAB. 


SUBROUTINE  H20CNT 
Created  on:  Wed  Nov  18  15:53:59  1992 
Revised  on:  Tue  Mar  1  07:55:36  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  LOWTRAN  self-  and  foreign-broadened  line  wings 
absorption  coefficients. 


REAL  FUNCTION  HAZE 
Created  on:  Wed  Nov  18  15:54:02  1992 
Revised  on:  Mon  Nov  7  14:34:04  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  aerosol  extinction  coefficient  (km"'). 


REAL  FUNCTION  HEYMS 

Created  on:  Wed  Nov  18  15:54:09  1992 

Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  liquid  water  content  (gm/m'^)  for  a  cirrus  cloud 
according  to  Heymsfield. 
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REAL  FUNCTION  HLOWT 
Created  on:  Wed  Nov  18  15:46:44  1992 
Revised  on:  Mon  Aug  2  13:14:27  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  boundary  layer  altitude  based  upon  the  LOWTRAN 
modification  of  the  haze  profile  for  elevated  locations. 


SUBROUTINE  HOREQU 
Created  on:  Wed  Nov  18  15:54:24  1992 
Revised  on:  Mon  May  17  17:33:46  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  converts  horizon  coordinates  to  equatorial  coordinates. 


SUBROUTINE  HORIZN 
Created  on:  Wed  Nov  18  15:54:28  1992 
Revised  on:  Thu  Jun  23  12:43:43  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  horizon  and  whether  the  desired  geometry  is 
beyond  the  horizon  or  not. 


SUBROUTINE  HTBLNC 
Created  on:  Wed  Nov  18  15:54:32  1992 
Revised  on:  Thu  Jun  23  12:43:23  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  is  the  layer  temperature  calculation  algorithm. 


SUBROUTINE  HYDROM 
Created  on:  Wed  Nov  18  15:54:35  1992 
Revised  on:  Mon  Nov  7  14:34:04  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  equivalent  absorber  amounts  for  hydrometeors 
(clouds,  fog,  rain,  snow,  and  cirrus/ice). 


35 


INTEGER  FUNCTION  IBKCNV 
Created  on:  8  November  1993 
Revised  on:  Wed  Apr  26  17:06:26  1995 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  converts  the  ecosystem  index  into  a  MOSART  terrain  background 
scene  index. 


INTEGER  FUNCTION  IBNSRC 
Created  on:  Wed  Nov  18  15:53:01  1992 
Revised  on:  Tue  Nov  22  10:04:37  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  location  of  XO  in  the  X-array.  The  search  is  binary 
and  starts  at  the  location  KEY.  The  binary  division  point  is  calculated  using  the 
gradient  across  the  X-array  for  the  interval. 

INTEGER  FUNCTION  IDAERO 
Created  on:  Wed  Nov  18  15:44:44  1992 
Revised  on:  Tue  May  24  13:18:17  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  assigns  a  default  aerosol  type  base  upon  the  type  of  background 
and  altitude. 


INTEGER  FUNCTION  IGTINT 
Created  on:  Wed  Nov  18  15:53:08  1992 
Revised  on:  Mon  Apr  25  08:34:50  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  reads  an  INTEGER  variable  contained  in  free  format  in  the 
CHARACTER  string  VARIAB. 


SUBROUTINE  IGTVEC 
Created  on:  Wed  Nov  18  15:53:12  1992 
Revised  on:  Sat  Jun  18  13:09:51  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  a  INTEGER  vector  contained  in  free  format  in  the 
CHARACTER  string  VARIAB. 


COMPLEX  FUNCTION  INDEXI 
Created  on:  Wed  Nov  18  15:53:14  1992 
Revised  on:  Mon  May  17  16:40:57  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  complex  index  of  refraction  for  ice. 


COMPLEX  FUNCTION  INDEXW 
Created  on:  Wed  Nov  18  15:53:19  1992 
Revised  on:  Tue  Mar  1  07:55:31  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  complex  index  of  refraction  for  water. 


SUBROUTINE  INDXBK 
Created  on:  Wed  Nov  18  15:53:22  1992 
Revised  on:  Tue  May  24  13:18:10  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  defines  the  background  index. 


INTEGER  FUNCTION  INDXSC 
Created  on:  Wed  Nov  18  15:53:25  1992 
Revised  on:  Mon  Aug  2  11:07:12  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  defines  the  scene  label  index. 
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SUBROUTINE  INICPL 
Created  on:  Wed  Nov  18  15:53:28  1992 
Revised  on:  Tue  Nov  22  09:07:16  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  initializes  the  calculations  for  the  multiple  scattering  coupling. 


SUBROUTINE  INIGEO 
Created  on:  Wed  Nov  18  15:53:35  1992 
Revised  on:  Tue  Nov  22  09:07:14  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  initializes  the  geometric  parameters  for  the  GEOM  routine. 


SUBROUTINE  INITL 
Created  on:  Wed  Nov  18  15:53:38  1992 
Revised  on:  Tue  Nov  22  09:07:00  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  in  the  MOSART  input  file. 


SUBROUTINE  INTEG 
Created  on:  Wed  Nov  18  16:00:10  1992 
Revised  on:  Wed  Oct  26  11:04:51  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  integrates  each  variable  for  a  band  average. 
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SUBROUTINE  INTR2D 
Created  on:  Wed  Nov  18  15:44:44  1992 
Revised  on:  Thu  Jun  23  12:43:43  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  interpolation  constants  for  a  rectangular  grid. 
First,  the  grid  is  searched  to  find  the  boundaries  of  the  rectangular  cell  containing 
point  (X0,Y0).  The  interpolation  weights  are  defined  as  zero  except  for  the  four  (4) 
points  that  define  the  boundary  of  the  cell.  The  interpolation  is  designed  to  define 
a  unique  representation  for  each  point  in  the  cell,  such  that  the  center  point  is  a 
equally  weighted  set  of  all  four  corner  values.  The  cell  is  jivided  into  four  (4) 
triangular  regions  (see  below)  and  if  the  (X,Y)  point  falls  within  a  given  region,  its 
interpolation  weights  are  determined  by  the  two  corner  values  and  the  center  point 
that  define  the  triangle. 

PI  P2 

(Xi,Yi) - (Xi+l,Yi) 

:\  /: 

:  \  /  : 

:  \  Region  1  /  : 

:  \  /  : 

:  \/  : 

:  \  /  : 

:  \  / 

:  \  /  : 

:  \  /  : 

:  Region  \/  Region  : 

:  4  /\  3  : 

:  /  \  : 

:  /  \  : 

:  /  \  : 

:  /  \  : 

:  /\  : 

:  /  \  : 

:  /  Region  2  \  : 

:  /  \  : 

:/  \: 

(Xi,Yi+l) - (Xi+l,Yi+l) 

P3  P4 

Note;  The  code  is  designed  to  handle  the  degenerate  case  for  one-dimension  (i.e., 
NX=1  or  NY=1),  as  well  as  the  double  degenerate  case  (i.e.,  NX=NY=1). 
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CHARACTER*72  FUNCTION  lOERR 
Created  on;  3  August  1993 
Revised  on:  Tue  Mar  1  07:55:55  1994 
Created  by;  Dr.  William  M.  Cornette 

This  FUNCTION  returns  the  appropriate  error  message  for  the  input  value  of  lOS. 
The  FUNCTION  returns  the  message  that  an  end-of-file  was  encountered  if  IOS=-1 
and  that  normal  operation  if  IOS=0,  in  accordance  with  the  ANSI  X3. 9-1 978 
FORTRAN  77  Standard.  For  all  other  values  of  lOS,  the  message  is  system 
dependent.  The  following  systems  are  implemented: 

-  Unix  (at  least  for  SGI  and  HP.  Not  tested  on  others) 

-  PC  Lahey  F77L  and  F77L  EM/32  compilers 

-  IBM  VS 

-  VAX 

A  generic  capability  is  also  included.  If  your  computer  uses  a  different  method  for 
obtaining  error  messages,  please  notify  the  author. 


SUBROUTINE  ISRAEL 
Created  on;  Wed  Nov  18  15:53:43  1992 
Revised  on;  Tue  May  24  13:18:13  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  makes  sure  that  the  Israeli  Standard  Atmosphere  is  correct  for 
day  vs.  night  conditions. 


INTEGER  FUNCTION  ISTAER 
Created  on:  Wed  Nov  18  15:53:46  1992 
Revised  on:  Mon  Nov  7  14:34:03  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  type  of  aerosol. 
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SUBROUTINE  KDISTR 
Created  on:  Wed  Nov  18  15:48:11  1992 
Revised  on:  Tue  Nov  22  09:07:14  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  generates  the  k-distributions  for  the  multiple  scattering  binary 
data  file. 


SUBROUTINE  LAYLW 

Created  on:  Wed  Nov  18  15:49:01  1992 

Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  computes  the  optical  path  and  path-weighted  temperature 
matrices  from  the  vertical  integrated  absorber  amounts. 


SUBROUTINE  LCTRIM 

Created  on:  Wed  Nov  18  15:49:04  1992 

Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  trims  any  leading  blanks  from  the  character  string  CHRSTR. 


INTEGER  FUNCTION  LENSTR 
Created  on:  Wed  Nov  18  15:49:06  1992 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  length  of  the  non-blank  string  contained  in  CHRSTR. 


CHARACTER*(*)  FUNCTION  LWCASE 
Created  by:  Dr.  William  M.  Cornette 
Created  on:  Tue  Jul  28  14:49:15  1992 
Revised  on:  Mon  Aug  2  11:06:29  1993 

This  FUNCTION  converts  STRING  from  upper  case  to  lower  case. 
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SUBROUTINE  LYRINT 
Created  on:  Wed  Nov  18  15:49:14  1992 
Revised  on:  Thu  Jun  23  12:43:40  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  initializes  the  layers  for  heat  transfer  calculations. 


SUBROUTINE  MARINE 
Created  on:  Wed  Nov  18  15:49:32  1992 
Revised  on:  Thu  Jun  23  12:43:10  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  aerosol  extinction  and  absorption  coefficients  for 
the  Navy  Maritime  model. 


INTEGER  FUNCTION  MDLATM 
Created  on:  Wed  Nov  18  15:49:36  1992 
Revised  on:  Thu  Feb  11  15:24:38  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  model  atmosphere  number  from  the  latitude  index 
and  the  season  index. 


SUBROUTINE  MIE 

Created  on:  Wed  Nov  18  15:49:38  1992 
Revised  on:  Thu  Jun  23  12:43:32  1994 

This  SUBROUTINE  calculates  extinction,  total  scattering,  and  asymmetry 
parameters  for  a  given  size  parameter  and  relative  refractive  index. 


SUBROUTINE  MIEINP 
Created  on:  Wed  Nov  18  15:49:41  1992 
Revised  on:  Tue  Nov  22  09:07:07  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  will  read  in  the  parameters  for  the  Mie  calculations. 
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SUBROUTINE  MIEPHS 
Created  on:  Wed  Nov  18  15:49:45  1992 
Revised  on:  Thu  Jun  23  12:43:27  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  absorption  and  scattering  coefficients,  the 
asymmetry  factor,  and  the  polarized  phase  matrix. 

SUBROUTINE  MLSCAT 
Created  on:  Wed  Nov  18  15:49:47  1992 
Revised  on:  Mon  Nov  7  14:33:44  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  multiple  scattering  terms. 


SUBROUTINE  MODBCK 
Created  on:  Wed  Feb  24  11:29:35  1993 
Revised  on:  Thu  May  20  15:01:37  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  modifies  the  background  parameters  for  snow  conditions. 


INTEGER  FUNCTION  MONTH 
Created  on:  Wed  Nov  18  15:49:55  1992 
Revised  on:  Mon  Aug  2  13:11:34  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  month  of  the  year  from  a  CHARACTER  argument. 
For  example,  if  the  CHARACTER  argument  is  either  ’JAN’,  ’Jan’,  ’jan’,  or  ’T,  the 
function  returns  the  value  of  1  for  the  first  month. 


PROGRAM  MOSART 
Created  on:  Wed  Nov  18  15:49:58  1992 
Revised  on:  Tue  Nov  22  09:07:01  1994 
Created  by:  Dr.  William  M.  Cornette 

Moderate  Spectral  Atmospheric  Radiance  and  Transmittance  Code 
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SUBROUTINE  MRNDFL 

Created  on:  Wed  Nov  18  15:50:02  1992 

Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  parameters  for  the  Navy  marine  aerosol  model. 


INTEGER  FUNCTION  NCHAER 
Created  on:  Wed  Nov  18  15:49:55  1992 
Revised  on:  Tue  Jun  28  08:00:21  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  aerosol  model  index  from  a  CHARACTER 
argument.  For  example,  if  the  CHARACTER  argument  is  either  ’RU’,  ’Ru’,  ’ru’,  or 
’1  the  function  returns  the  value  of  1  for  the  Rural  Aerosol  Model. 


INTEGER  FUNCTION  NCHATM 
Created  on:  Wed  Nov  18  15:49:55  1992 
Revised  on:  Mon  Aug  2  11:04:39  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  model  atmosphere  index  from  a  CHARACTER 
argument.  For  example,  if  the  CHARACTER  argument  is  either  ’EQUATO’, 
’Equate’,  ’equate’,  or  ’1  ’,  the  function  returns  the  value  of  1  for  the  Equatorial 

Model  Atmosphere. 


INTEGER  FUNCTION  NCHAZE 
Created  on:  Wed  Nov  18  15:49:55  1992 
Revised  on:  Tue  Jun  28  08:00:21  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  haze  profile  index  from  a  CHARACTER  argument. 
For  example,  if  the  CHARACTER  argument  is  either  ’BACKGR’,  ’Backgr’,  ’backgr’, 
or  ’1  ’,  the  function  returns  the  value  of  1  for  Background. 


t 
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INTEGER  FUNCTION  NCHSEA 
Created  on:  Wed  Nov  18  15:49:55  1992 
Revised  on:  Tue  Jun  28  08:00:21  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  season  index  from  a  CHARACTER  argument.  For 
example,  if  the  CHARACTER  argument  is  either  ’SUMMER’,  ’Summer’,  ’summer’, 
or  ’1  ’,  the  function  returns  the  value  of  1  for  Spring/Summer. 


INTEGER  FUNCTION  NCYCLE 
Created  on:  Wed  Nov  18  15:50:18  1992 
Revised  on:  Thu  Feb  11  15:33:38  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  functions  in  a  mode  similar  to  the  generic  MOD  function,  only  the 
value  returned  varies  from  1  to  NMOD,  rather  than  0  to  NMOD-1.  If  the  value  is 
negative,  it  is  added  to  NMOD. 


SUBROUTINE  NXXPAU 
Created  on:  Wed  Nov  18  15:50:21  1992 
Revised  on:  Mon  May  17  16:40:52  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  location  of  the  tropopause  according  to  the 
definition  of  the  conventional  tropopause  of  the  World  Meteorological  Organization: 

The  conventional  tropopause  is  the  lowest  altitude  at  which  the  lapse 
rate  decreases  to  2  deg  C/km  or  less,  provided  also  that  the  average 
lapse  rate  between  this  altitude  and  all  higher  altitudes  within  two 
kilometers  does  not  exceed  2  deg  C/km. 

Note  -  The  lapse  rate  equals  -DTDZ  (i.e.,  the  rate  of  decrease  of  temperature  with 
altitude.  The  average  lapse  rate  is  the  difference  between  the  temperatures  at  the 
respective  end  points  divided  by  the  altitude  interval,  irrespective  of  the  lapse-rate 
variations  in  between  the  end  points.  All  higher  altitudes  mean  that  no  point  on  the 
profile  in  the  two-kilometer  interval  above  the  lowest  altitude  can  fall  to  the  left  of 
the  2  deg  C/km  line  extending  from  the  lowest  altitude. 

Reference  -  Air  Weather  Service  Manual  AWSM  1 05-124  Dated  1 5  July  1 969,  Page 
6-19,  Paragraph  6.10.1 

Also,  the  stratopause  and  mesopause  are  also  calculated. 

Note:  If  any  of  the  values  are  meaningless,  then  default  values  of  10  km,  35  km, 
and  75  km  are  used  for  the  tropopause,  stratopause,  and  mesopause,  respectively. 


REAL  FUNCTION  02CNT 
Created  on:  Wed  Nov  18  15:47:42  1992 
Revised  on:  Tue  Mar  1  07:55:43  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  provides  the  oxygen  continuum  coefficients  as  a  function  of 
wavenumber  and  temperature. 
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SUBROUTINE  OPATH 
Created  on:  Wed  Nov  18  15:47:45  1992 
Revised  on:  Thu  Jun  23  12:43:22  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  performs  the  vertical  integration  to  obtain  the  layer  absorber 
amounts,  optical  paths,  flux  transmissivity,  and  optical  path  matrices. 


SUBROUTINE  OPNSCR 
Created  on:  Wed  Nov  18  15:47:47  1992 
Revised  on:  Tue  Nov  2  10:43:14  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  OPENs  a  scratch  file  on  an  available  file  unit. 


SUBROUTINE  PARSE 
Created  on:  Wed  Nov  18  15:59:33  1992 
Revised  on:  Thu  Jun  23  12:43:39  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  parses  the  CHARACTER  string  VARIN  and  places  one  field  in 
each  CHARACTER  string  VAROUT. 


REAL  FUNCTION  PARTIT 
Created  on:  Wed  Nov  18  15:59:36  1992 
Revised  on:  Wed  Jun  15  14:01:11  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  vibration  and  rotation  partition  functions,  relative  to 
a  reference  temperature,  for  a  variety  of  different  molecules. 


REAL  FUNCTION  PFR 

Created  on:  Wed  Nov  18  15:59:39  1992 

Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  H20  partition  function  corrections. 
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SUBROUTINE  PHFUNC 
Created  on:  Wed  Nov  18  15:59:45  1992 
Revised  on:  Thu  Jun  23  12:43:03  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  scattering  phase  function  for  a  specified  set  of 
aerosols  and  hydrometeors. 

REAL  FUNCTION  PHMLSC 
Created  on:  Fri  May  26  14:38:54  1995 
Revised  on:  Fri  May  26  15:32:23  1995 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  single  scattering  phase  function  for  molecular 
scattering. 

Reference:  Cornette,  “Suggested  modification  to  the  total  volume  molecular 
scattering  coefficient  in  LOWTRAN,"  Applied  Optics,  Vol.  19  (1980),  pp  A182-3. 


SUBROUTINE  PHYDRO 
Created  on:  Wed  Nov  18  15:59:48  1992 
Revised  on:  Thu  Jun  23  12:43:12  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  scattering  phase  function  for  a  specified  set  of 
hydrometeors. 


REAL  FUNCTION  PLANCK 
Created  on:  Wed  Nov  18  15:59:51  1992 
Revised  on:  Tue  Nov  2  10:42:47  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  spectral  blackbody  curve  (Planck  function) 
(W/cm^/cm-'). 


t 
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SUBROUTINE  PLANET 
Created  on:  Wed  Nov  18  15:59:54  1992 
Revised  on:  Tue  Nov  2  10:42:22  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  perturbation  on  the  solar  ephemeris  due  to  the 
moon  and  planets. 


SUBROUTINE  PLMSUB 
Created  on:  Wed  Nov  18  16:00:00  1992 
Revised  on:  Mon  Nov  7  14:34:02  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  parameters  for  the  plume  file. 


DOUBLE  PRECISION  FUNCTION  POLY 
Created  on:  Wed  Nov  18  16:00:05  1992 
Revised  on:  Mon  Aug  2  11:06:55  1993 

This  FUNCTION  calculates  the  polynomial  C1+C2*X+...+CN*X**N-1  . 


SUBROUTINE  PRALT 
Created  on:  Wed  Nov  18  16:00:07  1992 
Revised  on:  Tue  Mar  1  07:55:41  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  pressure  altitude  (km)  from  the  pressure, 
assuming  the  U.S.  Standard  (1976)  Atmosphere.  If  the  pressure  is  greater  than 
1777.6  mb  or  less  than  0.0044568  mb,  the  altitude  is  set  to  0.0,  and  the  error  flag 
is  set. 
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SUBROUTINE  PRCALC 
Created  on:  Wed  Nov  18  16:00:10  1992 
Revised  on:  Tue  Nov  22  09:07:07  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  transmittance  and  radiance  for  the  observer- 
source-background,  observer-source-solar/lunar,  observer-background-solar/lunar 
paths,  plus  skyshine  on  source  and  background. 


SUBROUTINE  PRETEM 
Created  on:  Wed  Nov  18  16:00:25  1992 
Revised  on:  Mon  Nov  7  14:34:01  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  computes  the  vertical  profiles  of  temperature  altitude,  HgO,  COg, 
and  O3  as  a  function  of  pressure.  The  pressure  runs  from  10  to  1010  mb  in 
increments  of  10  mb. 


SUBROUTINE  PROFAC 
Created  on:  Wed  Nov  18  16:00:28  1992 
Revised  on:  Mon  May  17  17:33:59  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  parameters  required  for  interpolation. 


SUBROUTINE  PROMPT 
Created  on:  Wed  Nov  18  16:00:30  1992 
Revised  on:  Tue  Mar  1  07:55:50  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  uses  non-standard  FORTRAN  (where  possible)  so  that  a  screen 
prompt  does  not  give  a  line  feed  (or  carriage  return)  immediately  after  writing  the 
string. 
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SUBROUTINE  PRTHDR 
Created  by:  Dr.  William  M.  Cornette 
Created  on:  Tue  Nov  22  09:07:13  1994 
Revised  on:  Tue  Jun  28  12:34:24  1994 

This  SUBROUTINE  prints  the  MOSART  file  header  in  ASCII  form. 


SUBROUTINE  PTHOSB 
Created  on:  Wed  Nov  18  16:00:41  1992 
Revised  on:  Tue  Nov  22  09:07:13  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  path  radiance  and  variation  along  the  observer- 
source-background  path. 


SUBROUTINE  PTHTAU 
Created  on:  Wed  Nov  18  16:00:45  1992 
Revised  on:  Mon  Nov  7  14:34:01  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  transmittance  along  a  path.  Either  the  final 
transmittance  or  the  incremental  transmittances  are  calculated. 


SUBROUTINE  PUTCLD 
Created  on:  Wed  Nov  18  16:00:50  1992 
Revised  on:  Tue  Nov  22  09:07:07  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  prints  out  the  cloud  summary  data. 


SUBROUTINE  PUTHDR 
Created  on:  Wed  Nov  18  16:00:54  1992 
Revised  on:  Mon  Nov  28  10:08:14  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  prints  out  the  header  for  the  various  binary  data  files. 
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SUBROUTINE  PUTSLR 
Created  on;  Wed  Nov  18  16:00:57  1992 
Revised  on:  Tue  Nov  22  09:07:06  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  prints  out  the  solar,  lunar,  and  ephemeris  summary  data. 


REAL  FUNCTION  RAB 

Created  on:  Wed  Nov  18  16:01:08  1992 

Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  three  layer  composite  reflection  function  from  above 
given  individual  layer  reflection  and  transmission  functions. 


REAL  FUNCTION  RADFLD 

Created  on:  Wed  Nov  18  16:01:12  1992 

Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  radiation  field  for  the  absorption  coefficients. 


REAL  FUNCTION  RADTRX 
Created  on:  Wed  Nov  18  16:01:16  1992 
Revised  on:  Mon  May  17  17:34:01  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  performs  the  integral  of  Y(X)/X  between  XI  and  X2  assuming  Y/X 
and  X  vary  exponentially  with  respect  to  the  free  parameter  R. 


REAL  FUNCTION  RADTRY 
Created  on:  Wed  Nov  18  16:01:18  1992 
Revised  on:  Mon  May  17  17:34:04  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  performs  the  integral  of  Y(X)  between  XI  and  X2  assuming  Y 
varies  exponentially  with  respect  to  the  parameter  X. 
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REAL  FUNCTION  RAINEX 
Created  on:  Wed  Nov  18  16:01:22  1992 
Revised  on:  Mon  May  17  17:34:07  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  extinction  coefficient  for  rain,  based  upon  the 
assumption  that  the  drop  diameter  is  large  relative  to  the  wavelength  so  that  the 
Mie  extinction  efficiency  is  independent  of  wavelength  (Qext=2.0).  This  assumes 
that  the  drop  diameter  is  between  0.1  and  10  mm. 


SUBROUTINE  RAINSP 
Created  on:  Wed  Nov  18  16:01:24  1992 
Revised  on:  Thu  Jun  23  12:42:49  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  normalized  (to  0.55  pm)  absorption  and  scattering 
coefficients  for  rain. 


SUBROUTINE  RAYPTH 
Created  on:  Wed  Nov  18  16:01:28  1992 
Revised  on:  Mon  Nov  7  14:34:00  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  geometric  parameters  for  a  specified  ray  path 
through  a  spherically  isotropic  atmosphere. 


REAL  FUNCTION  RBE 

Created  on:  Wed  Nov  18  16:01:30  1992 

Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  three  layer  composite  reflection  function  from  below 
given  individual  layer  reflection  and  transmission  functions. 


V 
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SUBROUTINE  RDFLTR 
Created  on:  Wed  Nov  18  16:01:35  1992 
Revised  on:  Tue  Nov  22  09:07:06  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  in  the  user-defined  filter  response. 


SUBROUTINE  RDGBL 
Created  on:  Mon  Mar  8  15:43:02  1993 
Revised  on:  Tue  Nov  22  09:07:03  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  obtains  the  global  climatology  parameters  from  the  global  data 
base,  or  sets  defaults  values. 


SUBROUTINE  RDLINE 
Created  on:  Wed  Nov  18  16:01:38  1992 
Revised  on:  Wed  Jun  15  14:01:21  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  an  input  buffer  from  unit  lUNIT.  It  is  assumed  that  the 
input  file  is  structured  in  CHARACTER*80  lines  with  any  line  that  is  to  be  continued 
terminated  by  the  character.  Any  number  of  characters  can  be  read  subject  to 
the  limitation  that  only  a  string  of  the  maximum  length  of  OUTBUF  will  be  returned. 
ISKIP  characters  and  any  leading  blanks  will  be  ignored  in  the  first  line  read. 


SUBROUTINE  RDSCN 
Created  on:  Mon  Mar  8  15:43:02  1993 
Revised  on:  Tue  Nov  22  09:07:03  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  the  scene  type  and  the  altitude  from  the  scenes  data 
base,  or  sets  defaults  values. 
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COMPLEX  FUNCTION  REFEST 
Created  on:  Wed  Nov  18  16:01:42  1992 
Revised  on:  Mon  Apr  25  08:34:55  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  estimates  the  complex  index  of  refraction  from  the  reflection 
coefficient. 


DOUBLE  PRECISION  FUNCTION  REFRAC 
Created  on:  Wed  Nov  18  16:01:49  1992 
Revised  on:  Thu  Jun  23  12:43:50  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  refractivity  or  modified  refractivity  of  the  earth’s 
atmosphere. 

Note  -  Refractivity,  N  =  (n-1)*1.E+06,  where  n  is  the  index  of  refraction. 

Modified  refractivity,  M  =  (nr/re-1)*1.E-06,  where  re  is  the  radius  of  the  earth  and 
r  =  re  +  h,  where  h  is  the  altitude. 

REAL  FUNCTION  RELHUM 

Created  on:  Wed  Nov  18  16:01:52  1992 

Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  relative  humidity  using  a  modified  definition  of  the 
relative  humidity  as  defined  by  the  Twelfth  Conference  of  Directors  of  the 
International  Meteorological  Organization  (Resolution  166,  dated  1947).  The 
modification  involves  the  expression  of  relative  humidity  as  a  fraction  rather  than  a 
percentage. 


SUBROUTINE  RESOLV 
Created  on:  Wed  Nov  18  16:01:55  1992 
Revised  on:  Thu  Jun  23  12:43:42  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  increment  of  the  calculations. 
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SUBROUTINE  RSHINE 
Created  on:  Wed  Nov  18  16:01:58  1992 
Revised  on:  Mon  Nov  7  14:33:42  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  skyshine. 


REAL  FUNCTION  SATUR 
Created  on:  Wed  Nov  18  16:02:09  1992 
Revised  on:  Thu  Jun  23  12:43:30  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  saturation  level  of  water  vapor  or  ice  in  ppmv. 


REAL  FUNCTION  SCINTL 
Created  on:  Wed  Nov  18  16:02:12  1992 
Revised  on:  Mon  May  17  16:40:46  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  scintillation  from  the  path  averaged  turbulence. 
Aperture  averaging  using  the  work  of  D.L.  Fried  (JOSA  57  (1967)  pp.  169-175)  is 
used. 


SUBROUTINE  SCNRIO 
Created  on:  Wed  Nov  18  16:02:15  1992 
Revised  on:  Tue  Nov  22  09:11:59  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  ray  paths  for  the  desired  observer-source- 
background  geometry  scenario. 


REAL  FUNCTION  SEAICE 
Created  on:  Mon  Mar  8  15:43:02  1993 
Revised  on:  Tue  May  2  16:38:12  1995 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  the  scene  type  and  the  altitude  from  the  scenes  data 
base,  or  sets  defaults  values. 
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REAL  FUNCTION  SEATMP 
Created  on:  12  April  1993 
Revised  on:  Tue  Nov  2  10:42:47  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  ocean  temperatures  (K)  at  the  surface  for  four 
seasons  of  the  year.  A  temperature  of  zero  (0.0)  implies  that  only  terrain  exists  in 
the  5  deg  by  5  deg  resolution  cell. 


COMPLEX  FUNCTION  SEAWTR 
Created  on:  Wed  Nov  18  16:02:19  1992 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  complex  dielectric  constant  of  water  and  sea  water 
by  the  Debye  formula. 

Reference:  Saxton  and  Lane,  Wireless  Engineer,  Oct.  1952. 


SUBROUTINE  SETALT 
Created  on:  Wed  Nov  18  16:02:21  1992 
Revised  on:  Mon  Nov  7  14:33:59  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  altitude  grid  points. 


SUBROUTINE  SETBCK 
Created  on:  Wed  Nov  18  16:02:26  1992 
Revised  on:  Tue  Nov  22  09:07:13  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  sets  the  background  parameters. 


SUBROUTINE  SETFLG 
Created  on:  Wed  Nov  18  16:02:29  1992 
Revised  on:  Mon  Apr  25  08:34:59  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  sets  the  flags  for  various  calculational  paths. 
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SUBROUTINE  SETUP 
Created  on:  Mon  Jan  6  14:37:32  1992 
Revised  on:  Thu  Jun  23  12:43:45  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  provided  the  inputs  for  the  skyshine  rays. 


REAL  FUNCTION  SHADOW 
Created  on:  Wed  Nov  18  16:02:39  1992 
Revised  on:  Tue  Nov  2  10:42:47  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  self-shadowing  of  a  rough  surface. 


SUBROUTINE  SHNGEO 
Created  on:  Wed  Nov  18  16:02:42  1992 
Revised  on:  Tue  Nov  22  09:07:15  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  geometric  parameters  for  the  scattered 
solar/lunar  irradiance. 


SUBROUTINE  SKYNOI 
Created  on:  Wed  Nov  18  16:02:46  1992 
Revised  on:  Tue  May  24  13:18:21  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  temperature  variations  for  the  skynoise 
calculations. 


REAL  FUNCTION  SLPOS 
Created  on:  Wed  Nov  18  16:02:50  1992 
Revised  on:  Thu  Jun  23  12:43:28  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  solar  or  lunar  positions  given  latitude  and  longitude 
of  the  sub-solar/lunar  point,  including  the  effects  of  refraction. 
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REAL  FUNCTION  SLRCNT 
Created  on:  Wed  Nov  18  16:02:55  1992 
Revised  on:  Tue  Mar  1  07:55:46  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  exoatmospheric  solar  constant  (W/m^). 


REAL  FUNCTION  SLUNAR 
Created  on:  Wed  Nov  18  16:02:58  1992 
Revised  on:  Thu  Jun  23  12:43:38  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  lunar  exoatmospheric  irradiance  (W/cm^/cm"'). 


SUBROUTINE  SMPCAL 
Created  on:  Wed  Nov  18  16:03:02  1992 
Revised  on:  Tue  Nov  8  11:27:29  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  altitude  dependent  irradiance  profiles  for  the 
simple  solar  calculations  and  the  lunar  calculations. 


REAL  FUNCTION  SNOWEX 
Created  on:  Wed  Nov  18  16:03:07  1992 
Revised  on:  Tue  Mar  1  07:55:42  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  extinction  due  to  falling  snow  at  0.55  pm. 


SUBROUTINE  SNOWSP 
Created  on:  Wed  Nov  18  16:03:14  1992 
Revised  on:  Thu  Jun  23  12:42:49  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  normalized  (to  0.55  pm)  absorption  and  scattering 
coefficients  for  snow. 
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SUBROUTINE  SOIL 

Created  on:  Wed  Nov  18  16:03:16  1992 
Revised  on:  Thu  Jun  23  12:43:55  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  soil  mean  dielectric  constant  and  variance  by 
biphase  mixture  formula. 

Reference:  Wang  and  Schmugge,  AE-18,  No.  4,  1980  pp  288-293. 


REAL  FUNCTION  SOLAR 
Created  on:  Wed  Nov  18  16:03:18  1992 
Revised  on:  Tue  Mar  1  07:55:46  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  exoatmospheric  solar  spectral  irradiance 
(W/cmVcm'^). 


SUBROUTINE  SOLBND 
Created  on:  Wed  Nov  18  16:03:22  1992 
Revised  on:  Tue  Nov  22  09:07:17  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  computes  the  layer  optical  properties  in  the  solar  band  and  then 
performs  the  radiative  transfer. 


SUBROUTINE  SOLRAD 
Created  on:  Wed  Nov  18  16:03:25  1992 
Revised  on:  Tue  Nov  22  09:07:15  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  various  solar  radiation  parameters.  It  is  also 
used  for  the  lunar  radiation  parameters. 
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SUBROUTINE  SPCLYR 
Created  on:  Wed  Nov  18  16:03:36  1992 
Revised  on:  Thu  Jun  23  12:43:49  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  specifies  the  properties  of  the  sublayer. 


REAL  FUNCTION  SPHAIR 
Created  on:  Wed  Jan  5  16:03:47  1995 
Revised  on:  Tue  May  2  16:38:11  1995 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  specific  heat  of  air  as  a  function  of  water  vapor 
content  (W-sec/gm/K). 


REAL  FUNCTION  SPHICE 

Created  on:  Wed  Nov  18  16:03:47  1992 

Revised  on:  Mon  May  17  16:42:59  1993 

This  FUNCTION  calculates  the  specific  heat  of  ice  as  a  function  of  temperature 
(W-sec/gm/K). 


REAL  FUNCTION  SPHWTR 

Created  on:  Wed  Nov  18  16:03:56  1992 

Revised  on:  Mon  May  17  16:42:24  1993 

This  FUNCTION  calculates  the  specific  heat  of  water  as  a  function  of  temperature 
(W-sec/gm/K). 


SUBROUTINE  SPROD 

Created  on:  Wed  Nov  18  16:03:58  1992 

Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  computes  the  layer  diffuse  flux  that  is  produced  from  the  solar 
beam  using  the  particular  solution  to  the  two-stream  approximation.  (Ref.  J.  Jafolla, 
Ph.D.  Thesis,  1981). 
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SUBROUTINE  SPTRIG 
Created  on:  Wed  Nov  18  16:04:02  1992 
Revised  on:  Tue  Apr  6  16:00:03  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  latitude  and  longitude  of  a  point  a  given  angular 
distance  away  from  a  reference  latitude  and  longitude. 


SUBROUTINE  SRAT 
Created  on:  Wed  Nov  18  16:04:05  1992 
Revised  on:  Thu  Jun  23  12:43:42  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  computes  the  spherical  atmosphere  correction  to  the  layer  local 
zenith  angle  (Ref.  J.  Jafolla,  Ph.D.  Thesis,  1981). 


SUBROUTINE  SRCFLX 
Created  on:  Wed  Nov  18  16:04:09  1992 
Revised  on:  Tue  Nov  22  09:07:13  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  flux  (up  and  down  longwave;  up,  down,  and  beam 
shortwave)  at  the  source  altitude. 


SUBROUTINE  SRCGEO 
Created  on:  Wed  Nov  18  16:04:15  1992 
Revised  on:  Tue  Nov  22  09:07:16  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  geometric  parameters  for  a  point  source  (e.g., 
sun  or  moon). 
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SUBROUTINE  SRCIRR 
Created  on:  Mon  Jan  6  14:37:32  1992 
Revised  on:  Tue  Nov  22  09:07:13  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  ray  paths  for  the  solar  irradiance  and 
sky/earthshine  at  the  source. 


REAL  FUNCTION  SRFLUX 

Created  on:  Wed  Nov  18  16:04:30  1992 

Revised  on:  Thu  Jun  23  12:43:38  1994 

This  FUNCTION  calculates  the  heat  flux  at  the  surface. 


SUBROUTINE  SRTLAY 
Created  on:  Wed  Nov  18  16:04:37  1992 
Revised  on:  Tue  Nov  22  09:07:17  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  two  stream  spherical  R  and  T  values. 


REAL  FUNCTION  STARAD 
Created  on:  Wed  Nov  18  16:04:40  1992 
Revised  on:  Mon  May  17  17:34:28  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  spectral  mean  space  background  due  to  stars  in 
W/sr/cm^/cm\ 

SUBROUTINE  STGEOM 
Created  on:  Wed  Nov  18  16:04:43  1992 
Revised  on:  Mon  Nov  7  14:34:14  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  geometry  index  based  upon  an  input 
CHARACTER  string. 
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REAL  FUNCTION  STRCN2 
Created  on:  Wed  Nov  18  16:04:49  1992 
Revised  on:  Mon  Nov  7  14:33:58  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  index  of  refraction  structure  constant,  Cn^. 


SUBROUTINE  SUMFIL 
Created  on:  Wed  Nov  18  16:04:53  1992 
Revised  on:  Tue  Nov  22  09:07:03  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  prints  out  a  summary  of  the  environmental  conditions 
represented  on  the  main  header. 


REAL  FUNCTION  SUPK 
Created  on:  Wed  Nov  18  16:04:57  1992 
Revised  on:  Mon  Aug  2  11:06:25  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  computes  the  super  kinetic  line  profile  factor. 


SUBROUTINE  SWAT 

Created  on:  Wed  Nov  18  16:04:59  1992 

Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  computes  the  three  (up,  down  diffuse,  down  direct)  stream  solar 
band  fluxes  using  a  recursive  adding  technique  (Ref.  J.  Jafolla,  Ph.D.  Thesis,  1 981 ). 


SUBROUTINE  TANGPT 
Created  on:  Wed  Nov  18  15:50:35  1992 
Revised  on:  Tue  Nov  22  09:07:12  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  if  a  tangent  point  exists  along  a  ray  path.  If  it  does, 
it  adds  the  appropriate  data  to  the  arrays. 


64 


SUBROUTINE  TERMPR 
Created  on:  Wed  Nov  18  15:52:14  1992 
Revised  on:  Mon  Nov  7  14:33:45  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  loads  background  index  and  establishes  the  projection  of  the 
solar/lunar  ray  on  the  background  surface. 


REAL  FUNCTION  THCAIR 
Created  on:  Wed  Jan  5  15:52:29  1995 
Revised  on:  Tue  May  2  16:38:11  1995 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  thermal  conductivity  of  air  as  a  function  of 
temperature  (W/m/K). 

REAL  FUNCTION  THClCE 

Created  on:  Wed  Nov  18  15:52:11  1992 

Revised  on:  Mon  May  17  16:43:20  1993 

This  FUNCTION  calculates  the  thermal  conductivity  of  ice  as  a  function  of 
temperature  (W/m/K). 

REAL  FUNCTION  THCSNW 

Created  on:  Wed  Nov  18  15:52:22  1992 

Revised  on:  Tue  Nov  2  10:42:34  1993 

This  FUNCTION  calculates  the  thermal  conductivity  of  snow  as  a  function  of  density 
(W/m/K). 

REAL  FUNCTION  THCWTR 

Created  on:  Wed  Nov  18  15:52:29  1992 

Revised  on:  Mon  May  17  16:43:16  1993 

This  FUNCTION  calculates  the  thermal  conductivity  of  water  as  a  function  of 
temperature  (W/m/K). 
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SUBROUTINE  TITLCR 
Created  on:  Wed  Nov  18  15:52:32  1992 
Revised  on:  Mon  Nov  7  14:34:13  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  creates  the  standard  portion  of  the  title  used  as  part  of  the  first 
record  in  the  MOSART  binary  data  files. 


SUBROUTINE  ADDARR 
Created  on:  Wed  Nov  18  15:52:32  1992 
Revised  on:  Mon  Nov  7  14:34:13  1994 
Created  by:  Dr.  William  M.  Cornette 

DISCLAIMER:  This  routine  was  extracted  from  a  document  on  how  to  obtain  the 
time  and  date  from  an  RS/6000  machine.  It  has  not  been  tested. 

The  routine  ADDARR  is  utterly  stupid  and  should  perhaps  be  called  ’COPY’.  The 
trick  is  that  our  program  calls  it  by  value,  passing  the  address,  and  picks  the  result 
by  reference,  allowing  access  of  the  array.  Maybe  there  is  a  smarter  way  of  doing 
this,  without  the  need  of  generating  a  new  copy  of  the  data. 


REAL  FUNCTION  TMPCLD 
Created  on:  Wed  Nov  18  15:52:36  1992 
Revised  on:  Thu  Jun  23  12:43:48  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  temperature  of  a  cloud  based  upon  its  radiance. 
AD  -  INTEGER  Variable  -  Cloud  radiance  (|iW/cm^/sr) 


SUBROUTINE  TRANLW 
Created  on:  Wed  Nov  18  15:52:40  1992 
Revised  on:  Tue  Mar  1  07:55:51  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  does  a  table  look  up  with  2D  interpolation  from  the  Staley  & 
Jurica  tables  to  calculate  an  element  TF(K,L)  in  the  total  flux  transmissivity  matrix. 
Ref.  Staley,  D.O.,  and  G.M.  Jurica,  1974,  JAM,  9,  365-372. 
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SUBROUTINE  TRNSMT 
Created  on:  Wed  Nov  18  15:52:43  1992 
Revised  on:  Mon  Nov  7  14:33:57  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  total  transmittance  and  the  transmittance  due  to 
absorption. 


SUBROUTINE  TURBUL 
Created  on:  Wed  Nov  18  15:52:46  1992 
Revised  on:  Wed  Jun  15  14:01:02  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  turbulence  parameters. 


REAL  FUNCTION  UDIF 

Created  on:  Wed  Nov  18  15:45:33  1992 

Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  three  layer  composite  upward  diffuse  flux  from  solar 
beam  given  individual  layer  upward  diffuse  from  solar  fluxes  and  two-stream 
reflection  and  transmission  functions. 


SUBROUTINE  UDLAY 
Created  on:  Wed  Nov  18  15:45:36  1992 
Revised  on:  Tue  Nov  22  09:07:16  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  diffuse  upper  and  lower  reflectances  using  a 
three-stream  radiative  transfer  methodology. 

CHARACTER*(*)  FUNCTION  UPCASE 
Created  by:  Dr.  William  M.  Cornette 
Created  on:  Tue  Jul  28  14:49:15  1992 
Revised  on:  Mon  Aug  2  11:06:27  1993 

This  FUNCTION  converts  STRING  from  lower  case  to  upper  case. 
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SUBROUTINE  USRBCK 
Created  on:  Wed  Nov  18  15:45:52  1992 
Revised  on:  Tue  Nov  22  09:07:06  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  the  user-defined  background  file  and  loads  the 
appropriate  arrays. 


SUBROUTINE  USRCLD 
Created  on:  Wed  Nov  18  15:45:59  1992 
Revised  on:  Tue  Nov  22  09:07:06  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  in  the  user-defined  hydrometeor  file. 


SUBROUTINE  USRDEF 
Created  on:  Wed  Nov  18  15:45:56  1992 
Revised  on:  Tue  Nov  22  09:07:12  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  in  the  user-defined  atmospheric  parameters. 


REAL  FUNCTION  VIRIAL 
Created  on:  Wed  Nov  18  15:46:17  1992 
Revised  on:  Tue  May  2  16:38:11  1995 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  second  and  third  virial  coefficients  for  moist  air. 


REAL  FUNCTION  VISRH 
Created  on:  Wed  Nov  18  15:44:44  1993 
Revised  on:  Mon  Apr  25  08:35:00  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  meteorological  range  in  km  based  upon  the  relative 
humidity,  based  on  Hanel  (1972). 
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SUBROUTINE  VSA 

Created  on:  Wed  Nov  18  15:46:24  1992 
Revised  on:  Tue  May  24  13:17:44  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  vertical  structure  profile  of  aerosol  density  near 
the  ground,  including  clouds  and  fog,  at  9  altitudes  between  0  and  2  km. 


REAL  FUNCTION  XMCONV 
Created  on:  Wed  Nov  18  15:46:38  1992 
Revised  on:  Thu  Jun  23  12:43:29  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  converts  the  various  types  of  units  for  molecular  concentrations  to 
ppmv. 


SUBROUTINE  XPNDAR 
Created  on:  Wed  Nov  18  15:46:41  1992 
Revised  on:  Mon  May  17  16:43:07  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  expands  a  partially  filled  array.  The  part  of  the  array  that  has 
been  filled  must  be  ordered  in  X. 


REAL  FUNCTION  XTERP 
Created  on:  Wed  Nov  18  15:46:44  1992 
Revised  on:  Wed  Oct  26  11:04:56  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  performs  interpolation  on  the  function  Y(X)  to  determine  the  value 
Y(X0).  The  search  for  the  adjacent  points  in  X(l)  to  the  value  XO  starts  at  X(KEY). 
If  XO  falls  outside  the  range  of  X(l),  then  either  the  value  X(1)  or  X(N)  is  used, 
depending  on  whether  XO  is  less  than  X(1)  or  greater  than  X(N),  respectively. 
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REAL  FUNCTION  ZLAT 
Created  on:  Wed  Nov  18  15:46:58  1992 
Revised  on:  Thu  Jun  23  12:43:32  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  zodiacal  latitude. 


REAL  FUNCTION  ZODICL 
Created  on:  Wed  Nov  18  15:47:05  1992 
Revised  on:  Tue  Jun  28  08:00:22  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  zodiacal  light,  employing  a  Lorentzian  dust 
distribution.  The  radiance  is  calculated  as  a  function  of  wavelength  and  geocentric 
ecliptic  elongation  and  latitude. 


SUBROUTINE  ZROHDR 
Created  on:  Wed  Nov  18  15:47:12  1992 
Revised  on:  Tue  Nov  22  09:07:12  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  zeros  the  MOSART  file  header. 


SUBROUTINE  ZROINT 
Created  on:  Wed  Nov  18  15:47:14  1992 
Revised  on:  Wed  Oct  26  11:04:47  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  zeroes  the  summation  variables  for  the  spectral  integration. 
WRAPPER: 

C  Language  Wrapper  for  the  MOSART  Code 


CLEAR: 

This  routine  is  for  use  on  a  Sun  computer  to  suppress  the  warning  messages  for 
Inexact  and  Underflow  conditions. 
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3.2  Block  Data  Modules 


The  BLOCK  DATA  modules  contained  in  the  MOSART  program  are  listed  below 
in  alphabetical  order.  A  brief  description  and  the  Creation  Date  and  the  Revision 
Date  are  provided  for  each  module. 


BLOCK  DATA  ARSABD 
Created  on:  Wed  Nov  18  16:06:03  1992 
Revised  on:  Tue  May  4  12:03:52  1993 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  model  aerosols  absorption  coefficients. 


BLOCK  DATA  ARSLBD 
Created  on:  Wed  Nov  18  16:06:03  1992 
Revised  on:  Tue  May  4  12:03:07  1993 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  model  aerosols. 


BLOCK  DATA  ARSXBD 
Created  on:  Wed  Nov  18  16:06:03  1992 
Revised  on:  Tue  May  4  12:03:55  1993 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  model  aerosols  extinction  coefficients. 


BLOCK  DATA  ATMSBD 
Created  on:  Wed  Nov  18  16:06:07  1992 
Revised  on:  Tue  May  24  13:17:40  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  data  for  the  model  Atmospheres. 
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BLOCK  DATA  BKGDBD 
Created  on:  Wed  Nov  18  16:06:10  1992 
Revised  on:  Tue  May  24  13:17:39  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  all  of  the  parameters  for  the  earth  background 
materials. 


BLOCK  DATA  BKSTBD 
Created  on:  Wed  Nov  18  16:06:14  1992 
Revised  on:  Mon  May  17  16:35:56  1993 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  parameters  for  the  temperature-dependent 
background  stratospheric  aerosol  model. 


BLOCK  DATA  BRBNBD 
Created  on:  Wed  Nov  18  16:06:18  1992 
Revised  on:  Tue  Mar  1  07:55:52  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  provides  the  various  constants  for  the  broad-band,  heat 
transfer  calculations. 


BLOCK  DATA  CFCBD 
Created  on: 

Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  provides  the  cross-sections  for  the  chloro-fluorocarbons. 


BLOCK  DATA  CHRCBD 
Created  on:  Wed  Nov  18  16:06:28  1992 
Revised  on:  Tue  Mar  1  07:55:45  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  miscellaneous  CHARACTER  strings. 
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BLOCK  DATA  CIRRBD 

Created  on:  Wed  Nov  18  16:06:31  1992 

Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  asymmetry  factors  for  the  cirrus  cloud 
models. 


BLOCK  DATA  CLDRBD 
Created  on:  Wed  Nov  18  16:06:35  1992 
Revised  on:  Tue  May  4  09:13:21  1993 
Created  by:  Dr.  William  M.  Cornette 

This  module  contains  the  cloud  and  rain  data  bases. 


BLOCK  DATA  CROSBD 
Created  on:  Wed  Oct  2  09:41:44  1994 
Revised  on:  Sun  Nov  27  20:55:28  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  contains  the  cross-sections  of  various  molecules  for  which  band 
parameters  are  not  available. 


BLOCK  DATA  DEVCBD 
Created  on:  Wed  Nov  18  16:08:22  1992 
Revised  on:  Tue  Nov  22  09:07:04  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  assigns  file  unit  numbers  for  all  files. 


BLOCK  DATA  DSRTBD 
Created  on:  Wed  Nov  18  16:06:51  1992 
Revised  on:  Mon  Jul  5  11:41:48  1993 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  desert  aerosol  extinction  coefficients, 
absorption  coefficients,  and  asymmetry  parameters  for  four  wind  speeds.  0  m/sec, 
1 0  m/sec,  20  m/sec,  and  30  m/sec. 
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BLOCK  DATA  ECOSBD 
Created  on:  8  November  1993 
Revised  on:  Tue  May  2  16:38:12  1995 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  contains  the  labels  and  conversions  for  the  World  Ecosystems 
(WE1.4D)  data  base,  based  on  the  Olson  World  Ecosystem  Classes  Version  1.4D. 
The  data  is  a  10-minute  GED  grid  with  a  mixed  resolution  of  10  to  30  minute.  The 
positional  error  is  unknown.  Although  there  are  74  categories,  15  categories  are 
not  used,  and  two  (2)  categories  are  empty  (i.e.,  City  complexes  CCX  and  Broadleaf 
Evergreen  Scrub  BES). 


BLOCK  DATA  EMISBD 
Created  on:  Wed  Nov  18  16:06:57  1992 
Revised  on:  Tue  Mar  1  07:55:48  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  descriptions  of  various  materials. 


BLOCK  DATA  EXMLBD 
Created  on:  Wed  Nov  18  16:07:05  1992 
Revised  on:  Wed  Jun  15  14:01:10  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  data  for  the  non-latitude  dependent 
molecular  profiles. 


BLOCK  DATA  GLCFBD 
Created  on:  Wed  Nov  18  16:07:10  1992 
Revised  on:  Tue  Mar  1  07:55:47  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  contains  the  Gauss-Legendre  coefficients. 
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BLOCK  DATA  H20BD 
Created  on:  Wed  Nov  18  16:07:13  1992 
Revised  on:  Tue  Mar  1  07:55:36  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  parameters  for  the  self-broadened 
correction  to  the  water  vapor  continuum  at  260  K  and  296  K. 


BLOCK  DATA  HAZEBD 
Created  on:  Wed  Nov  18  16:07:21  1992 
Revised  on:  Mon  May  17  16:36:04  1993 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  haze  profiles. 


BLOCK  DATA  ICEBD 
Created  on:  Wed  Nov  18  16:07:24  1992 
Revised  on:  Mon  May  17  16:36:01  1993 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  provides  the  real  and  imaginary  indices  of  refraction  for 
ice. 


BLOCK  DATA  INFLBD 
Created  on:  Fri  Mar  30  14:49:28  1990 
Revised  on:  Sat  Jun  18  13:09:45  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  contains  a  sample  filter  response  spectral  data  file.  The  data 
contained  in  this  sample  file  is  for  the  photopic  response  of  the  human  eye. 


BLOCK  DATA  INPTBD 
Created  on:  Wed  Nov  18  16:08:25  1992 
Revised  on:  Tue  Nov  22  09:07:01  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  a  sample  input  file. 
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BLOCK  DATA  LAGRBD 
Created  on:  Wed  Nov  18  16:08:28  1992 
Revised  on:  Wed  Nov  3  13:37:17  1993 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  abscissas  and  weights  for  Laguerre 
integration.  Also  provided  is  the  product  of  the  weights,  WLG,  and  the  exponential 
of  the  abscissa,  XLG,  namely,  WLGEX. 


BLOCK  DATA  LUNPBD 
Created  on:  Wed  Nov  18  16:08:32  1992 
Revised  on:  Wed  Nov  3  13:37:16  1993 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  lunar  perturbations  data  selected  from  the 
Table  of  Motion  of  the  Moon  by  Ernest  W.  Brown. 


BLOCK  DATA  MARNBD 
Created  on:  Wed  Nov  18  16:08:36  1992 
Revised  on:  Tue  Mar  1  07:55:45  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  Navy  Marine  aerosol  extinction  and 
absorption  data. 


BLOCK  DATA  MOLNBD 
Created  on:  Wed  Oct  2  09:41:44  1994 
Revised  on:  Mon  Nov  7  14:33:37  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  contains  the  names  of  the  different  molecules,  aerosols, 
hydrometeors,  and  the  like. 
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BLOCK  DATA  MOLPBD 
Created  on:  Wed  Nov  18  16:08:44  1992 
Revised  on:  Tue  Nov  22  09:07:11  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  data  for  the  molecular  partition  functions. 


BLOCK  DATA  N02BD 
Created  on:  Wed  Nov  18  15:44:44  1992 
Revised  on:  Tue  May  24  13:18:14  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  contains  the  cross-sections  of  NOg  between  14095  and 
49970  cm‘\ 

BLOCK  DATA  02CBD 

Created  on:  Wed  Nov  18  16:08:46  1992 

Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  parameters  for  the  oxygen  continuum. 


BLOCK  DATA  02UVBD 

Created  on:  Wed  Nov  18  16:09:07  1992 

Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  modules  contains  the  Herzberg  and  Schumann-Runge  02  band 
model. 


BLOCK  DATA  03CWBD 
Created  on:  Wed  Nov  18  15:44:44  1992 
Revised  on:  Tue  May  24  13:18:15  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  contains  the  cross-sections  of  the  Chappuis  and  Wulf  band  of 
03  between  9170  and  24565  cm'L 
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BLOCK  DATA  03HHBD 
Created  on:  Wed  Nov  18  16:09:16  1992 
Revised  on:  Tue  May  24  13:18:18  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  data  for  the  ozone  Hartley  Huggins 
cross-sections  for  a  temperature  of  273  K.  The  units  are  of 

The  data  now  includes  Molina  &  Molina  data  at  273  K  with  the  temperature 
dependence  determined  from  the  1 95  K  Harvard  measurements  employing  the  Bass 
algorithm,  C0*(1+C1*T+C2*(T**2)).  This  is  only  for  the  wavelength  range  from  0.34 
to  0.35  microns.  Otherwise,  the  Bass  data  alone  have  been  employed  between 
0.245  and  0.34  microns. 


BLOCK  DATA  OCNTBD 
Created  on:  12  April  1993 
Revised  on:  Mon  Aug  2  09:52:44  1993 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  ocean  temperatures  the  surface  for  four 
seasons  of  the  year.  A  temperature  of  zero  (0.0)  implies  that  only  terrain  exists  in 
the  5  deg  by  5  deg  resolution  cell. 


BLOCK  DATA  PHFGBD 
Created  on:  Wed  Nov  18  16:09:31  1992 
Revised  on:  Tue  Mar  1  07:55:34  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  phase  functions  for  the  fog  models. 


BLOCK  DATA  PHHYBD 
Created  on:  Wed  Nov  18  16:09:34  1992 
Revised  on:  Thu  Feb  11  15:06:19  1993 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  phase  functions  for  the  hydrometeor 
models. 
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BLOCK  DATA  PHMABD 
Created  on:  Wed  Nov  18  16:09:37  1992 
Revised  on:  Tue  Mar  1  07:55:35  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  phase  functions  for  the  relative  humidity 
dependent  boundary  layer  maritime  aerosol. 


BLOCK  DATA  PHOCBD 
Created  on:  Wed  Nov  18  16:09:42  1992 
Revised  on:  Tue  Mar  1  07:55:33  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  phase  functions  for  the  relative  humidity 
dependent  boundary  layer  oceanic  aerosol. 


BLOCK  DATA  PHRUBD 
Created  on:  Wed  Nov  18  16:09:45  1992 
Revised  on:  Tue  Mar  1  07:55:33  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  phase  functions  for  the  relative  humidity 
dependent  boundary  layer  rural  aerosol. 


BLOCK  DATA  PHSTBD 
Created  on:  Wed  Nov  18  16:09:51  1992 
Revised  on:  Tue  Mar  1  07:55:32  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  phase  functions  for  all  stratospheric  were 
extrapolated  exponentially  for  65  angles. 
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BLOCK  DATA  PHTRBD 
Created  on:  Wed  Nov  18  16:09:54  1992 
Revised  on:  Tue  Mar  1  07:55:30  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  phase  functions  for  the  relative  humidity 
dependent  tropospheric  aerosol. 


BLOCK  DATA  PHURBD 
Created  on:  Wed  Nov  18  16:09:58  1992 
Revised  on:  Tue  Mar  1  07:55:31  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  phase  functions  for  the  relative  humidity 
dependent  boundary  layer  urban  aerosol. 


BLOCK  DATA  RAINBD 

Created  on:  Wed  Nov  18  16:10:01  1992 

Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  rain  and  snow  model  data. 


BLOCK  DATA  REFRBD 

Created  on:  Wed  Nov  18  16:10:04  1992 

Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  modules  contains  the  parameters  for  the  refractivity  from  10  to 
1000  GHz  for  H20  vapor  and  02. 


BLOCK  DATA  SCENBD 
Created  on:  Wed  Nov  18  16:10:07  1992 
Revised  on:  Mon  Jul  5  11:41:55  1993 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  all  of  the  parameters  for  the  earth  background 
scenes. 
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BLOCK  DATA  SICEBD 
Created  on:  Wed  Nov  18  16:10:01  1992 
Revised  on:  Tue  May  2  16:38:14  1995 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  sea  ice  indices. 


BLOCK  DATA  SLR1BD 
Created  on:  Wed  Nov  18  16:10:19  1992 
Revised  on:  Thu  Apr  13  17:35:24  1995 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  spectral  irradiance  of  the  sun  at  the  earth 
for  the  mean  earth-sun  distance  between  100  and  10,000  cm’T 


BLOCK  DATA  SLR2BD 
Created  on:  Wed  Nov  18  16:10:19  1992 
Revised  on;  Thu  Apr  13  17:35:32  1995 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  spectral  irradiance  of  the  sun  at  the  earth 
for  the  mean  earth-sun  distance  between  10,001  and  20,000  cm'\ 


BLOCK  DATA  SLR3BD 
Created  on:  Wed  Nov  18  16:10:19  1992 
Revised  on:  Thu  Apr  13  17:35:37  1995 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  spectral  irradiance  of  the  sun  at  the  earth 
for  the  mean  earth-sun  distance  between  20,001  and  30,000  cm  \ 


BLOCK  DATA  SLR4BD 
Created  on:  Wed  Nov  18  16:10:19  1992 
Revised  on:  Thu  Apr  13  17:35:43  1995 
Created  by;  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  spectral  irradiance  of  the  sun  at  the  earth 
for  the  mean  earth-sun  distance  between  30,001  and  40,000  cm  . 
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BLOCK  DATA  SLR5BD 
Created  on:  Wed  Nov  18  16:10:19  1992 
Revised  on:  Thu  Apr  13  17:35:48  1995 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  spectral  irradiance  of  the  sun  at  the  earth 
for  the  mean  earth-sun  distance  above  40,001  cm'V 


BLOCK  DATA  SNOWBD 

Created  on:  Wed  Nov  18  16:10:12  1992 

Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  parameters  for  snow. 


BLOCK  DATA  S02BD 
Created  on:  Wed  Nov  18  15:44:44  1992 
Revised  on:  Tue  May  24  13:18:15  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  contains  the  cross-sections  of  S02  between  24820  and 
52625  cm-\ 


BLOCK  DATA  STMLBD 

Created  on:  Wed  Nov  18  16:10:23  1992 

Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  data  for  the  latitude  dependent  molecular 
profiles. 


BLOCK  DATA  UFTPBD 
Created  on:  Thu  Sep  22  1993 
Revised  on:  Tue  Mar  1  07:55:50  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  contains  the  pointer  information  for  the  MODTRAN  molecular 
data  base  file  ’UFTAPE’. 
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BLOCK  DATA  UPPRBD 
Created  on:  Wed  Nov  18  16:10:41  1992 
Revised  on:  Tue  May  24  13:17:39  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  contains  the  atmospheric  profile  above  100  km  altitude. 


BLOCK  DATA  VIRLBD 
Created  on:  Wed  Nov  18  16:10:45  1992 
Revised  on:  Tue  May  2  16:38:10  1995 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  virial  coefficients  for  dry  air,  vapor,  and  the 
interaction  coefficient  as  a  function  of  temperature. 


BLOCK  DATA  WTRBD 

Created  on:  Wed  Nov  18  16:10:52  1992 

Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  index  of  refraction  for  water. 


BLOCK  DATA  ZOD1BD 
Created  on:  Wed  Nov  18  16:10:59  1992 
Revised  on:  Tue  May  4  09:12:03  1993 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  first  set  of  the  zodiacal  light  parameters. 


BLOCK  DATA  ZOD2BD 
Created  on:  Wed  Nov  18  16:10:59  1992 
Revised  on:  Tue  Mar  1  07:55:47  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  module  contains  the  second  set  of  zodiacal  light  parameters. 
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3.3  ASCBIN 


The  routines  contained  in  the  ASCBIN  program  are  listed  below  in  alphabetical 
order,  together  with  a  brief  description  and  the  Creation  Date  and  the  Revision  Date 
for  each  routine.  Routines  that  are  duplicates  of  routines  in  the  MOSART  program 
or  other  utility  programs  can  be  found  in  the  appropriate  section. 


PROGRAM  ASCBIN 
Created  on:  Tue  Sep  25  09:40:01  1990 
Revised  on:  Tue  Nov  22  09:07:01  1994 
Created  by:  Dr.  William  M.  Cornette 

MOSART  ASCII  from  Binary  Computer  Code. 


SUBROUTINE  CONVAB 
Created  on:  Tue  Sep  25  09:41:05  1990 
Revised  on:  Tue  Nov  29  10:37:17  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  converts  an  MOSART  binary  data  file  into  an  ASCII  data  file. 
It  also  converts  the  ASCII  data  file  into  an  MOSART  binary  file. 


SUBROUTINE  SETFIL 
Created  on:  Mon  Jul  23  11:23:58  1990 
Revised  on:  Thu  Jun  23  12:43:25  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  checks  for  the  existence  of  a  file,  and  if  it  exists,  it  OPENs  the 
file. 


SUBROUTINE  SLITFN 
Created  on:  Fri  Nov  20  12:05:04  1992 
Revised  on:  Thu  Jun  30  11:12:28  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  initializes  the  slit  function  variables  and  then  step-wise 
convolves  the  input  parameter  with  the  slit  function  weights. 
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SUBROUTINE  TABLEA 
Created  on:  Wed  Apr  3  10:29:45  1991 
Revised  on:  Tue  Nov  22  09:07:10  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  provides  the  spectral  data  in  an  MOSART  source  binary  data 
file  in  a  tabular  form. 


SUBROUTINE  TABLEB 
Created  on:  Wed  Apr  3  10:29:48  1991 
Revised  on:  Tue  Nov  22  09:07:12  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  provides  the  spectral  data  in  an  MOSART  background  binary 
data  file  in  a  tabular  form. 


SUBROUTINE  TABLEH 
Created  on:  Wed  Apr  3  10:29:48  1991 
Revised  on:  Tue  Nov  22  09:07:12  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  provides  the  temporal  data  in  an  MOSART  heat  transfer  binary 
data  file  in  a  tabular  form. 


SUBROUTINE  TABLET 
Created  on:  Wed  Apr  3  10:29:48  1991 
Revised  on:  Tue  Nov  22  09:07:10  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  provides  the  spectral  data  in  an  MOSART  molecular 
transmittance  binary  data  file  in  a  tabular  form. 


3.4  BBTEMP 


The  routines  contained  in  the  BBTEMP  program  are  listed  below  in  alphabetical 
order,  together  with  a  brief  description  and  the  Creation  Date  and  the  Revision  Date 
for  each  routine.  Routines  that  are  duplicates  of  routines  in  the  MOSART  program 
or  other  utility  programs  can  be  found  in  the  appropriate  section. 
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PROGRAM  BBTEMP 
Created  on:  Thu  Jul  2  11:49:18  1992 
Revised  on:  Tue  Nov  22  09:07:06  1994 
Created  by:  Dr.  William  M.  Cornette 

Blackbody  Temperature  Summary  Program. 

This  PROGRAM  reads  the  ’.atm’  binary  data  file  from  MOSART  and  convert  the 
radiance  values  to  equivalent  blackbody  temperatures  (K). 


REAL  FUNCTION  INVPLK 
Created  on:  Thu  Jul  2  11:49:21  1992 
Revised  on:  Fri  Mar  26  16:06:00  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  temperature  corresponding  to  the  spectral  blackbody 
curve  (Planck  function). 


3.5  CRFILE 


The  routines  contained  in  the  CRFILE  program  are  listed  below  in  alphabetical 
order,  together  with  a  brief  description  and  the  Creation  Date  and  the  Revision  Date 
for  each  routine.  Routines  that  are  duplicates  of  routines  in  the  MOSART  program 
or  other  utility  programs  can  be  found  in  the  appropriate  section.  Except  for  the 
driver  routines,  MSAG  and  MDRI,  the  components  of  the  SAG  code  are  not 
provided. 


SUBROUTINE  CNVJTK 
Created  on:  Wed  Nov  18  16:00:30  1992 
Revised  on:  Tue  Apr  5  17:30:17  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  converts  the  MODTRAN  JCHAR  string  to  the  MOSART  indexing 
scheme. 
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SUBROUTINE  CRBKGD 
Created  on:  Tue  Sep  25  09:41:02  1990 
Revised  on:  Tue  Mar  1  07:47:02  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  creates  the  MOSART  user-defined  background  data  file. 


PROGRAM  CRFILE 

Created  on:  Tue  Sep  25  09:40:01  1990 
Revised  on:  Tue  Nov  22  09:07:05  1994 
Created  by:  Dr.  William  M.  Cornette 


SUBROUTINE  CRFLTR 
Created  on:  Tue  Sep  25  09:40:16  1990 
Revised  on:  Thu  Jun  23  12:43:25  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  creates  the  MOSART  filter  response  file. 


SUBROUTINE  CRINPT 
Created  on:  Tue  Sep  25  09:39:58  1990 
Revised  on:  Tue  Nov  22  09:07:00  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  creates  the  MOSART  input  file. 

SUBROUTINE  CRUAER 
Created  on:  Tue  Sep  25  09:40:55  1990 
Revised  on:  Tue  Nov  2  10:43:27  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  creates  the  MOSART  user-defined  aerosol  data  file. 
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SUBROUTINE  CRUATM 
Created  on:  Tue  Sep  25  09:40:13  1990 
Revised  on:  Tue  Nov  22  09:06:59  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  creates  the  MOSART  user-defined  atmosphere  data  file. 


SUBROUTINE  CRUCLD 
Created  on:  Tue  Sep  25  09:40:52  1990 
Revised  on:  Tue  Nov  2  10:43:25  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  creates  the  MOSART  user-defined  hydrometeor  data  file. 


BLOCK  DATA  INARBD 
Created  on:  Fri  Mar  30  14:49:21  1990 
Revised  on:  Sat  Jun  18  13:09:45  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  contains  a  sample  user-defined  aerosol  file. 


BLOCK  DATA  INBKBD 
Created  on:  Fri  Mar  30  14:49:35  1990 
Revised  on:  Sat  Jun  18  13:09:44  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  contains  a  sample  user-defined  background  and  scene  file. 


BLOCK  DATA  INCLBD 
Created  on:  Fri  Mar  30  14:49:32  1990 
Revised  on:  Sat  Jun  18  13:09:43  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  contains  a  sample  user-defined  hydrometeor  file. 
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SUBROUTINE  MDRI 

Created  on:  6  July  1994 

Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  has  been  modified  to  operate  with  CRFILE  for  MOSART  user- 
defined  files. 


SUBROUTINE  MENU 
Created  on:  Mon  Jul  23  11:24:00  1990 
Revised  on:  Tue  Mar  1  07:47:01  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  provides  the  keys  and  indices  for  the  input  to  the  MOSART 
code. 


SUBROUTINE  MSAG 
Created  on:  Tue  Mar  29  15:44:44  1994 
Revised  on:  Mon  Nov  7  14:34:13  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  drives  the  SHARC/SAMM  Atmosphere  Generator  for  use  by 
MOSART. 


BLOCK  DATA  NRLBD 

Created  on:  6  July  1994 

Revised  on:  Mon  Nov  7  14:34:13  1994 

Created  by:  Dr.  William  M.  Cornette 

This  BLOCK  DATA  contains  the  file  number  and  names  of  the  NRL  data  bases. 


SUBROUTINE  RDMDTN 
Created  on:  Wed  Nov  18  16:00:30  1992 
Revised  on:  Tue  Nov  22  09:06:59  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  a  MODTRAN  input  file  and  creates  an  equivalent  (at  least 
approximately)  MOSART  input  file. 
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3.6  FACET 


The  routines  in  the  FACET  program  are  listed  below  in  alphabetical  order, 
together  with  a  brief  description  and  the  Creation  Date  and  Revision  Date  for  each 
routine.  Routines  that  are  duplicates  of  routines  in  the  MOSART  program  or  other 
utility  programs  can  be  found  in  the  appropriate  section. 


PROGRAM  FACET 

Created  on:  Thu  Jun  23  12:36:15  1992 
Revised  on:  Tue  Nov  22  09:07:05  1994 
Created  by:  Dr.  William  M.  Cornette 

This  PROGRAM  computes  the  emitted  and  reflected  radiances  from  a  unit  area  flat 
plate.  Emissivities  can  be  either 

•  Lambertian  (diffuse)  or 

•  directional, 

depending  upon  the  available  data.  Reflectivities  can  be  either 

•  Lambertian  (diffuse), 

•  directional,  or 

•  bidirectional, 

depending  upon  the  available  data.  The  emissivity  and  reflectivity  are  related  as 
follows: 


Reflectivity 
Diffuse  Directional 

Emissivity 

Diffuse  X 

Directional  x 

REAL  FUNCTION  ROUGH 
Created  on:  Wed  Nov  18  15:43:15  1992 
Revised  on:  Mon  Nov  7  14:34:13  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  amount  of  energy  reflected  specularly  from  a  rough 
surface.  Losses  are  due  to  incoherent  scattering  and  interference. 


Bidirectional 


X 
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REAL  FUNCTION  SURFAC 
Created  on:  Wed  Nov  18  15:41:27  1992 
Revised  on:  Mon  Nov  7  14:34:15  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  facet  element  radiance. 

3.7  FPTEST 


The  routines  contained  in  the  FPTEST  program  are  listed  below  in  alphabetical 
order,  together  with  a  brief  description  and  the  Creation  Date  and  the  Revision  Date 
for  each  routine.  Routines  that  are  duplicates  of  routines  in  the  MOSART  program 
or  other  utility  programs  can  be  found  in  the  appropriate  section. 

SUBROUTINE  CKSTAT 
Created  on:  Mon  Aug  2  11:06:44  1993 
Revised  on:  Thu  Jun  23  12:43:48  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  checks  for  whether  a  code  is  running  in  static  or  dynamic  mode 
and  at  what  uninitialized  variables  are  set. 


REAL  FUNCTION  ZSTAT 

LOGICAL  FUNCTION  FLCOL1 
Created  on:  Thu  Oct  28  1993 
Revised  on:  Tue  Nov  2  10:43:32  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  if  a  file  written  by  the  code  can  then  be  read  by  the 
code,  or  if  column  one  is  suppressed.  A  value  of  .TRUE,  implies  that  the  code  can 
read  a  file  that  it  has  written. 

PROGRAM  FPTEST 
Created  on:  Tue  Sep  15  1992 
Revised  on:  Tue  Nov  22  09:07:06  1994 
Created  by:  Dr.  William  M.  Cornette 

This  PROGRAM  tests  certain  numerical  algorithms  for  calculating  key  floating  point 
parameters  that  are  machine  dependent. 
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INTEGER  FUNCTION  LRECHK 
Created  on:  Tue  Sep  15  1992 
Revised  on:  Mon  Nov  7  14:34:12  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTIONS  calculates  the  record  length  for  different  length  and  type  of 
records.  Duplicate  methods  for  declaring  variables  (e.g.,  REAL  and  REALM, 
DOUBLE  COMPLEX  and  COMPLEX*16)  are  declared  in  the  more  conventional 
method,  with  the  alternate  method  commented  out.  Also,  non-ANSI  standard 
variable  types  (e.g.,  LOGICAL*1,  INTEGER*1)  are  also  commented  out.  Each  type 
is  commented  out  with  the  following  abbreviations: 

"CINTI"  for  INTEGER*1 
"CINT4"  for  INTEGERM 
■■CRL4"  for  REALM 
■■CRL8"  for  REAL*8 
‘'CCM6"  forCOMPLEX*8 
"CCM16"  for  COMPLEX*16 
"CLOG2"  for  LOGICAL*2 
"CLOG4"  for  LOGICALM 
"CIBM"  for  IBM 
"CUNY"  for  Univac 

"CDBL"  for  the  INTRINSICs  DCMPLX  and  DIMAG 


3.8  INSTDB 


The  routines  contained  in  the  CRFILE  program  are  listed  below  in  alphabetical 
order,  together  with  a  brief  description  and  the  Creation  Date  and  the  Revision  Date 
for  each  routine.  Routines  that  are  duplicates  of  routines  in  the  MOSART  program 
or  other  utility  programs  can  be  found  in  the  appropriate  section. 


PROGRAM  INSTDB 
Created  on:  Thu  Jul  2  09:36:53  1992 
Revised  on:  Tue  Nov  22  09:07:02  1994 
Created  by:  Dr.  William  M.  Cornette 

This  PROGRAM  installs  the  MOSART  data  bases. 

Note:  To  OPEN  the  direct  access  files  on  an  IBM  VM/CMS  operating  system, 
certain  file  parameters  must  be  set.  Remove  the  occurrences  of  ’CIBMV’  below. 
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3.9  MRFLTR 


The  routines  contained  in  the  MRFLTR  program  are  listed  below  in  alphabetical 
order,  together  with  a  brief  description  and  the  Creation  Date  and  the  Revision  Date 
for  each  routine.  Routines  that  are  duplicates  of  routines  in  the  MOSART  program 
or  other  utility  programs  can  be  found  in  the  appropriate  section. 


SUBROUTINE  ATMINT 
Created  on:  Wed  Nov  18  15:41:04  1992 
Revised  on:  Tue  Nov  22  09:07:05  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  integrates  the  spectral  data  from  the  source  file. 


SUBROUTINE  ATMOUT 
Created  on:  Wed  Nov  18  15:41:07  1992 
Revised  on:  Tue  Nov  22  09:07:04  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  prints  out  the  atmospheric  parameters. 


SUBROUTINE  BCKINT 
Created  on:  Wed  Nov  18  15:41:30  1992 
Revised  on:  Tue  Nov  22  09:07:05  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  integrates  the  background  spectral  data. 


SUBROUTINE  GETHDR 
Created  on:  Wed  Nov  18  15:56:33  1992 
Revised  on:  Tue  Nov  22  09:07:11  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  the  MOSART  file  header  into  the  COMMON  block 
HEADER. 
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PROGRAM  MRFLTR 
Created  on:  Wed  Nov  18  15:49:58  1992 
Revised  on:  Tue  Nov  22  09:07:04  1994 
Created  by:  Dr.  William  M.  Cornette 

MOSART  Spectral  Filter  Response  Convolution  Code. 


3.10  PLTGEN 

The  routines  contained  in  the  PLTGEN  program  are  listed  below  in  alphabetical 
order,  together  with  a  brief  description  and  the  Creation  Date  and  the  Revision  Date 
for  each  routine.  Routines  that  are  duplicates  of  routines  in  the  MCSART  program 
or  other  utility  programs  can  be  found  in  the  appropriate  section. 


SUBRCUTINE  AGUTCL 
Created  on:  Wed  Feb  13  16:13:10  1991 
Revised  on:  Thu  Jun  23  12:43:39  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBRCUTINE  is  used  by  the  NCAR  graphics  package  for  mapping  the  various 
axis. 


CHARACTER*n  FUNCTiCN  APPEND 
Created  on:  Mon  Jul  23  11:23:50  1990 
Revised  on:  Thu  Jun  23  12:43:36  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTICN  appends  STRNG2  at  the  end  of  the  non-blank  portion  of  STRNG1 . 


BLCCK  DATA  PLTBD 
Created  on:  Wed  Jan  2  09:41:44  1991 
Revised  on:  Wed  Jun  15  14:01:07  1994 
Created  by:  Dr.  William  M.  Cornette 

This  BLCCK  DATA  contains  the  standard  plot  parameter  definition  for  all  plot  types. 


94 


SUBROUTINE  PLTDRV 
Created  on:  Thu  Nov  15  10:59:11  1990 
Revised  on:  Tue  Nov  22  09:07:11  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  is  the  driver  for  setting  up  the  plots. 


PROGRAM  PLTGEN 
Created  on:  Tue  Sep  25  09:40:50  1990 
Revised  on:  Tue  Nov  22  09:07:1 1  1994 
Created  by:  Dr.  William  M.  Cornette 

This  PROGRAM  initializes  plotting  with  installation  specific  routines.  Please  refer 
to  the  installation  instructions  for  customizing  for  a  specific  installation.  This 
PROGRAM  is  the  driver  for  the  NCAR  graphics  package. 


SUBROUTINE  RDMSRT 
Created  on:  Wed  Apr  3  10:29:52  1991 
Revised  on:  Tue  Nov  22  09:07:11  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  in  the  MOSART  .atm  binary  output  file.  The  file  is 
OPENed  outside  the  SUBROUTINE  by  the  main  driver. 


3.11  VISUAL 

The  routines  contained  in  the  VISUAL  program  are  listed  below  in  alphabetical 
order,  together  with  a  brief  description  and  the  Creation  Date  and  the  Revision  Date 
for  each  routine.  Routines  that  are  duplicates  of  routines  in  the  MOSART  program 
or  other  utility  programs  can  be  found  in  the  appropriate  section. 


SUBROUTINE  COLOR 
Created  on:  Thu  Jul  2  09:12:48  1992 
Revised  on:  Fri  Mar  26  16:14:42  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  determines  the  human  eye  color  response. 
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SUBROUTINE  HUMAN 
Created  on:  Thu  Jul  2  09:12:55  1992 
Revised  on:  Mon  Aug  2  09:57:22  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  spectral  lumen/watt  response  of  the  human  eye, 
based  on  available  background  illumination. 


SUBROUTINE  NRMLZ 
Created  on:  Thu  Jul  2  09:12:58  1992 
Revised  on:  Fri  Mar  26  16:14:34  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  normalizes  the  terms  X  and  Y  by  the  sum  X+Y+Z. 


SUBROUTINE  SUMIT 
Created  on:  Thu  Jul  2  09:13:07  1992 
Revised  on:  Thu  Jun  23  12:43:50  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  performs  an  incremental  integration  of  the  variable  RV  over  the 
spectral  interval  DV  for  the  weights  FILTER,  X,  Y,  and  Z. 


PROGRAM  VISUAL 
Created  on:  Thu  Jul  2  11:49:56  1992 
Revised  on:  Tue  Nov  22  09:07:04  1994 
Created  by:  Dr.  William  M.  Cornette 

This  PROGRAM  reads  the  ’.atm’  binary  data  file  from  APART  for  the  human  visual 
response  region  of  the  spectrum  (0.34  -  0.78  microns),  determines  the  appropriate 
eye  spectral  response  (i.e.,  photopic,  scotopic,  or  mesopic),  calculates  the 
environmental  parameters  in  lumen  and  evaluates  the  color  content  of  the 
parameters. 
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3.12  FACET 


PROGRAM  FACET 

Created  on:  Thu  Jan  23  12:36:15  1992 
Revised  on:  Thu  Apr  13  17:47:29  1995 
Created  by:  Dr.  William  M.  Cornette 

This  PROGRAM  computes  the  emitted  and  reflected  radiances  from  a  unit  area  flat 
plate.  Emissivities  can  be  either 

-  Lambertian  (diffuse)  or 

-  directional, 

depending  upon  the  available  data.'  Reflectivities  can  be  either 

-  Lambertian  (diffuse), 

-  directional,  or 

-  bidirectional, 

depending  upon  the  available  data.  The  emissivity  and  reflectivity  are  related  as 
follows: 


Reflectivity 

Diffuse  Directional  Bidirectional 

Emissivity 

Diffuse  X 

Directional  ^  ^ 


REAL  FUNCTION  ROUGH 
Created  on:  Wed  Nov  18  15:43:15  1992 
Revised  on:  Mon  Nov  7  14:34:13  1994 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  calculates  the  amount  of  energy  reflected  specularly  from  a  rough 
surface.  Losses  are  due  to  incoherent  scattering  and  interference. 
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REAL  FUNCTION  SURFAC 
Created  on:  Wed  Nov  18  15:41:27  1992 
Revised  on:  Mon  Nov  7  14:34:15  1994 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  calculates  the  facet  element  radiance. 


3.13  SCNGEN 

SUBROUTINE  COEFF 
Created  on:  Thu  Jul  2  08:59:07  1992 
Revised  on:  Thu  Feb  2  13:30:26  1995 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  generates  the  Fourier  coefficients  for  the  scene  by  using 
random  numbers  scaled  by  the  PSD.  Since  the  resulting  scene  is  real  valued,  half 
of  the  complex  Fourier  coefficients  are  redundant  and  only  half  the  array  space  is 
required. 


REAL  FUNCTION  CORF 
Created  on:  Thu  Jul  2  08:59:10  1992 
Revised  on:  Mon  Aug  2  09:56:46  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  returns  the  spatial  correlation  function  given  the  correlation  length 
(defined  as  the  correlation  function  at  1/e),  the  PSD  frequency  scale  and  the  PSD 
power  law  index. 


SUBROUTINE  FM2D 
Created  on:  Thu  Jul  2  08:59:12  1992 
Revised  on:  Fri  Mar  26  16:12:17  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  performs  a  midpoint  displacement  and  successive  random 
additions  in  two  dimensions. 
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SUBROUTINE  FOUR1 
Created  on:  Thu  Jul  2  08:59:15  1992 
Revised  on:  Thu  Feb  2  13:30:06  1995 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  performs  the  Cooley-Tukey  Fast  Fourier  Transform. 

TRNSFM(K)=sum(PDATA(J)*EXP(ISIGN*2*PI*SQRT(-1)*(J-1)*(K-1)/NN)), 

summed  over  all  J  and  K  from  1  to  NN.  The  rms  relative  error  is  bounded  by 
6*SQRT(2)*LOG2(NN)*2**(-B),  where  B  is  the  number  of  bits  in  the  floating  point 
fraction. 

The  output  has  the  form  such  that  the  1st  (complex)  value  corresponds  to  0  freq, 
the  next  to  +  DELF,  up  to  (N/2  -1)  DELF,  then  -N/2  DELF  to  the  last  entry 
corresponding  to  -DELF,  where  DELF=1/NN. 


REAL  FUNCTION  GAMMA 
Created  on:  Thu  Jul  2  08:59:17  1992 
Revised  on:  Mon  Aug  2  09:56:51  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  returns  the  gamma  function  of  the  argument  for  values  of  the 
argument  greater  than  zero.  It  uses  the  polynomial  approximation  from  the 
Handbook  of  Mathematical  Functions  (9th  Dover  printing)  by  Abramowitz  and 
Stegun  (page  257,  6.1.35). 


REAL  FUNCTION  GAUS 
Created  on:  Thu  Jul  2  08:59:19  1992 
Revised  on:  Mon  Aug  2  09:56:50  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  produces  Gaussian  random  numbers  having  the  specified  standard 
deviation  by  adding  and  scaling  12  uniform  random  numbers.  The  sum  of  12 
uniformly  distributed  random  numbers  on  (a,-a)  has  standard  deviation  =  2a. 
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REAL  FUNCTION  KNU 
Created  on:  Thu  Jul  2  08:59:22  1992 
Revised  on:  Mon  Aug  2  09:56:43  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  returns  the  modified  Bessel  function  K  for  values  of  the  index 
greater  than  0.5.  It  numerically  evaluates  an  integral  expression  from  The 
Handbook  of  Mathematical  Functions  (9th  Dover  edition)  by  Abramowitz  and  Stegun 
(page  376,  9.6.23).  Accuracy  is  about  three  places. 


SUBROUTINE  RUNIF 
Created  on:  Thu  Jul  2  08:59:27  1992 
Revised  on:  Fri  Mar  26  16:11:55  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  is  a  random  number  generator  that  returns  a  value  between  0.  and 
0.  It  is  portable  among  a  wide  variety  of  computers.  It  generates  a  random  number 
between  0.0  and  1.0  according  to  the  algorithm  presented  by  Bays  and  Durham 
(TOMS,  2,  59,  1976).  The  motivation  for  using  this  scheme,  which  resembles  the 
Maclaren-Marsaglia  method,  is  to  greatly  increase  the  period  of  the  random 
sequence.  If  the  period  of  the  basic  generator  (UNI)  is  P,  then  the  expected  mean 
period  of  the  sequence  generated  by  RUNIF  is  given  by  new  mean 

P  =  SORT  (PrFACTORIAL(N)/(8*P)), 

where  FACTORIAL(N)  must  be  much  greater  than  P  in  this  asymptotic  formula. 
Generally,  N  should  be  around  32  if  P=4.E6  as  for  UNI. 

This  routine  was  modified  from  a  routine  written  by  W.  Fullerton  (LANL). 
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REAL  FUNCTION  SCALE 
Created  on:  Thu  Jul  2  08:59:29  1992 
Revised  on:  Mon  Aug  2  09:56:48  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  returns  the  frequency  scale  required  for  specification  of  the 
1 -dimensional  PSD  from  the  spatial  correlation  length  and  the  power  law  index  by 
using  the  Fourier  transform  relationship  between  the  PSD  and  the  correlation 
function.  The  correlation  length  is  defined  as  the  correlation  function  evaluated  at 
1/e.  The  algorithm  evaluates  the  correlation  function  for  various  values  of  the 
frequency  scale  until  the  condition  is  satisfied. 


PROGRAM  SCNGEN 
Created  on:  Thu  Jul  2  08:59:38  1992 
Revised  on:  Tue  May  9  10:03:10  1995 
Created  by:  Dr.  William  M.  Cornette 

This  PROGRAM  computes  a  1 024  x  1 024  2-dimensional  scene  containing  correlated 
random  fluctuations  described  by  a  set  of  specified  1 -dimensional  PSDs.  It  is 
assumed  that  the  fluctuations  in  the  2-dimensional  scene  are  isotropic.  Each  PSD 
is  completely  described  by  a  material  correlation  length,  material  scene  variance, 
and  material  power  law  slope  for  each  material  in  the  scene.  Different  values  of  the 
input  random  number  seed  will  produce  statistically  independent  realizations  of  the 
scene.  The  1 -dimensional  PSD  for  each  material  has  the  form, 

PSD(KX)=:2.*SQRT(PI)*VAR*(GAMMA(ALPHA/2.)/GAMMA((ALPHA-1.)/2.)) 

/(K0*(1.+(KX/K0)**2)**(ALPHA/2.)) 

while  the  2-dimensional  PSD  for  each  material  has  the  form: 

PSD2D=2.*Pr(ALPHA-1.)*VAR/(K0X*K0Y)* 

((1  .+(KX/K0X)**2+(KY/K0Y)**2)**(-(ALPHA+1  .)/2.)) 
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SUBROUTINE  TDFFT 
Created  on;  Thu  Jul  2  08:59:41  1992 
Revised  on:  Fri  Mar  26  16:11:49  1993 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  performs  an  in-place  2-dimensional  FFT  on  the  packed  complex 
Fourier  coefficients  generated  in  COEFF  and  produces  the  real  valued  scene.  It 
first  partially  unpacks  the  coefficients  by  creating  one  extra  row  in  array  UNPCK. 


SUBROUTINE  TILEIT 
Created  on:  Wed  Nov  18  15:44:44  1992 
Revised  on:  Thu  Feb  2  13:30:26  1995 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  tiles  a  larger  array  using  the  results  from  a  smaller  array,  with 
a  smooth  transition  at  the  edges. 


REAL  FUNCTION  UNI 
Created  on:  Thu  Jul  2  08:59:43  1992 
Revised  on:  Fri  Mar  26  16:11:46  1993 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  is  a  pseudo-random  number  generator  that  produces  numbers 
between  0.  and  1.  This  code  is  portable  among  a  wide  variety  of  computers. 
UNI(R)  undoubtedly  is  not  as  good  as  many  readily  available  installation  dependent 
versions,  and  so  this  routine  is  not  recommended  for  widespread  usage.  Its 
redeeming  feature  is  that  the  exact  same  random  numbers  (to  within  final  round-off 
error)  can  be  generated  from  machine  to  machine.  Thus,  programs  that  make  use 
of  random  numbers  can  be  easily  transported  to  and  checked  in  a  new  environment. 
The  random  numbers  are  generated  by  the  linear  congruential  method  described, 
e.g.,  by  Knuth  in  Seminumerical  Methods  (pg.  9),  Addison-Wesley,  1969.  Given  the 
l-th  number  of  a  pseudo-random  sequence,  the  1+1  -st  number  is  generated  from 

X(l+1)  =  (A*X(I)  +  C)  MOD  M, 

where  here  M  =  2**22  =  4194304,  C  =  1731  and  several  suitable  values  of  the 
multiplier  A  are  discussed  below.  Both  the  multiplier  A  and  random  number  X  are 
represented  in  double  precision  as  two  1 1-bit  words.  The  constants  are  chosen  so 
that  the  period  is  the  maximum  possible,  41 94304.  In  order  that  the  same  numbers 
be  generated  from  machine  to  machine,  it  is  necessary  that  23-bit  integers  be 
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reducible  modulo  2**11  exactly,  that  23-bit  integers  be  added  exactly,  and  that 
11 -bit  integers  be  multiplied  exactly.  Furthermore,  if  the  restart  option  is  used 
(where  R  is  between  0  and  1),  then  the  product  R*2**22  =  R*41 94304  must  be 
correct  to  the  nearest  integer.  The  first  four  random  numbers  should  be 
0.0004127026,  0.6750836372,  0.1614754200,  and  0.9086198807.  The  tenth 
random  number  is  0.5527787209,  and  the  hundredth  is  0.3600893021.  The 
thousandth  number  should  be  0.2176990509.  In  order  to  generate  several 
effectively  independent  sequences  with  the  same  generator,  it  is  necessary  to  know 
the  random  number  for  several  widely  spaced  calls.  The  l-th  random  number  times 
2**22,  where  l=K*P/8  and  P  is  the  period  of  the  sequence  (P  =  2**22),  is  still  of  the 
form  L*P/8.  In  particular,  we  find  the  l-th  random  number  multiplied  by  2**22  is 
given  by 


I  =  0  1*P/8  2*P/8  3*P/8  4*P/8  5*P/8  6*P/8  7*P/8  8*P/8 
UNI  =  0  5*P/8  2*P/8  7*P/8  4*P/8  1*P/8  6*P/8  3*P/8  0 

Thus  the  4*P/8  =  2097152  random  number  is  2097152/2**22.  Several  multipliers 
have  been  subjected  to  the  spectral  test  (see  Knuth,  p.  82).  Four  suitable 
multipliers  roughly  in  order  of  goodness  according  to  the  spectral  test  are 

3146757  =  1536*2048  +  1029  =  2**21  +  2**20  +  2**10  +  5 

2098181  =  1024*2048  +  1029  =  2**21  +  2**10  +  5 

3146245  =  1536*2048  +  517  =  2**21  +  2**20  +  2**9  +  5 

2776669  =  1355*2048  +  1629  =  5**9  +  7**7  +  1 

In  the  table  below  LOG10(NU(I))  gives  roughly  the  number  of  random  decimal  digits 
in  the  random  numbers  considered  I  at  a  time. 


C  is  the  primary  measure  of  goodness.  In  both  cases  bigger  is  better. 


A 


LOGIO  NU(I) 

1=2  1=3  1=4  1=5 


C{1) 

1=2  1=3  1=4  1=5 


3146757 

2098181 

3146245 

2776669 

Best 

Possible 


3.3  2.0 

3.3  2.0 

3.3  2.2 

3.3  2.1 

3.3  2.3 


1.6  1.3 

1.6  1.2 

1.5  1.1 

1.6  1.3 

1.7  1.4 


3.1  1.3 

3.2  1.3 

3.2  4.2 

2.5  2.0 

3.6  5.9 


4.6  2.6 

4.6  1.7 

1.1  0.4 

1.9  2.6 

9.7  14.9 


This  code  has  been  modified  from  a  code  developed  by  W.  Fullerton  (LANL). 
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3.14  TERTEM 


INTEGER  FUNCTION  NCHTER 
Created  on:  Wed  Nov  18  15:49:55  1992 
Revised  on:  Tue  May  9  10:03:08  1995 
Created  by:  Dr.  William  M.  Cornette 

This  FUNCTION  determines  the  terrain  material  index  from  a  CHARACTER 
argument.  For  example,  if  the  CHARACTER  argument  is  either  ’ASPHALT’, 
’Asphalt’,  ’asphalt’,  or  ’64  the  function  returns  the  value  of  64  for  Asphalt. 


SUBROUTINE  RDUSRM 
Created  on:  Wed  Apr  2  15:49:55  1995 
Revised  on:  Tue  May  9  10:03:11  1995 
Created  by:  Dr.  William  M.  Cornette 

This  SUBROUTINE  reads  in  and  initializes  user-defined  terrain  materials  for 
TERTEM. 


PROGRAM  TERTEM 
Created  on:  Thu  Aug  5  15:42:16  1994 
Revised  on:  Fri  May  26  15:32:25  1995 
Created  by:  Dr.  William  M.  Cornette 

This  PROGRAM  calculates  the  terrain  material  temperatures  for  the  GENESSIS 
code. 
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4.0  ROUTINE  DATA  DICTIONARY 


4.1  MOSART  Routines 

The  data  dictionaries  for  the  executable  routines  and  BLOCK  DATA  for  MOSART 
are  given  below. 

Descriptions  of  all  input  variables,  together  with  declarations  of  PARAMETERS, 
INTRINSIC  and  EXTERNAL  routines,  local  variables,  and  COMMON  blocks  are 

provided. 
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REAL  FUNCTION  ABCCL4 


Argument  Declarations: 

V  -  REAL  Variable  *-  Wavenumber  {cm"^) 

TEMP  -  REAL  Variable  -  Temperature  (K) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

INTRINSIC  INT 

EXTERNAL  XTERP , CROSBD 

Local  Variable  Declarations: 

INTEGER  I ,  N 

REAL  TMP ( 5 ) 

COMMON  Blocks:  /CRSECT/ 


REAL  FUNCTION  ABHN04 


Arg-ument  Declarations: 

V  -  REAL  Variable  -  Wavenumber  (cm"^) 

TEMP  -  REAL  Variable  -  Temperature  (K) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

INTRINSIC  INT 

EXTERNAL  XTERP , CROSBD 

Local  Variable  Declarations: 

INTEGER  I , N 

REAL  TMP { 5 ) 

COMMON  Blocks:  /CRSECT/ 


REAL  FUNCTION  ABN205 


Argument  Declarations: 

V  -  REAL  Variable  -  Wavenumber  {cm“^) 

TEMP  -  REAL  Variable  -  Temperature  (K) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

INTRINSIC  INT 

EXTERNAL  XTERP , CROSBD 

Local  Variable  Declarations: 

INTEGER  I , N 

REAL  TMP ( 5 ) 

COMMON  Blocks:  /CRSECT/ 
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REAL  FUNCTION  ABSCFC 


Argument  Declarations: 


V 

TEMP 

INDCFC 


REAL  Variable  -  Wavenumber  {cm'^) 

REAL  Variable  -  Temperature  (K) 

INTEGER  Variable  -  CFC  index 

INDCFC  =  1  implies  CC13F  (CFC-11) 
INDCFC  =  1  implies  CC12F2  (CFC-12) 
INDCFC  =  1  implies  CC1F3  (CFC-13) 
INDCFC  =  1  implies  CF4  (CFC-14) 
INDCFC  =  1  implies  CHF2C1  {CFC-22) 
INDCFC  =  1  implies  C2C13F3  {CFC-113) 
INDCFC  =  1  implies  C2C12F4  {CFC-114) 
INDCFC  =  1  implies  C2C1F5  (CFC-115) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


XTERP 

INT 

XTERP , CFCBD 


Local  Variable  Declarations: 


INTEGER 

REAL 

COMMON  Blocks: 


I,N 

TMPCFC { 5 ) 
/CFCBM/ 


REAL  FUNCTION  ABSCLO 


Argioment  Declarations: 

V  -  REAL  Variable  -  Wavenumber  (cm"^ 

TEMP  -  REAL  Variable  -  Temperature  (K) 

INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


XTERP 

INT 

XTERP , CROSBD 


Local  Variable  Declarations: 


INTEGER 

REAL 


I,N 
TMP ( 5 ) 


COMMON  Blocks : 


/CRSECT/ 
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REAL  FUNCTION  ABSH20 


Argximent  Declarations: 

V  -  REAL  Variable  -  Wavenumber  {cm'^) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , INT , MIN 

Local  Variable  Declarations: 

INTEGER  I,IP,NPTS 

REAL  CH20 ( 4 ) , WL , WLX , FAC , WLl , WL2 , DWL 

COMMON  Blocks:  None 


SUBROUTINE  ABSMOL 


Argument  Declarations: 


V 

SDV 

ODV 

CDV 

TDEPA 

ALF 

RADFLO 

PRTNO 

NTEMP 

MOLEC 


REAL  Variable  (Input)  -  Wavenumber  (cm’^) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Extinction  coefficient 
(cm'M 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Inverse  line  spacing 
(cm) 

REAL  Vector  (Len  =  Unspecified)  (Output)  - 

Pressure-broadened  continuum  extinction  coefficient  (cm"^) 

REAL  Variable  (Output)  -  Temperature -dependence  exponent  for  line 
width 

REAL  Variable  (Output)  -  Foreign-broadened  line  width  at  STP  (cm’^) 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Radiation  field  term  for 
the  band  temperatures 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Partition  function  for 
the  band  temperatures 

INTEGER  Variable  (Output)  -  Number  of  temperature  values 

INTEGER  Variable  (Input)  -  Molecular  index  number 


PARAMETER  Declarations: 


INTEGER  NPMAX , NTMPMX , MOLMAX , MLIDMX 

PARAMETER  (NPMAX=250,  NTMPMX=5,  MOLMAX=26,  MLIDMX=45) 

INTRINSIC  and  EXTERNAL  Declarations: 


CHARACTER*  7  2 

INTRINSIC 

EXTERNAL 


lOERR 

INT,  ABS,  REAL 
DEVCBD , UFTPBD , lOERR 


Local  Variable  Declarations: 


INTEGER  I,N,NREC,IOS,IBIN(NPMAX) ,IMOL(NPMAX) ,IP,IV, 

I ALF (NPMAX) , NRECU 

REAL  VDUM  ( MOLMAX )  ,  SDZ  ( NTMPMX ,  NPMAX )  , 

ODZ ( NTMPMX , NPMAX ) 


COMMON  Blocks: 


/CONSTN/ , /DEVICE/ , /MOLECP/ , /UFTAPE/ 
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REAL  FUNCTION  ABSN2 


Argument  Declarations: 

V  -  REAL  Variable  -  Wavenumber  (cm'^) 

TEMP  -  REAL  Variable  -  Temperature  (K) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINS IC  REAL , INT , MIN , SQRT 

Local  Variable  Declarations : 

INTEGER  I,IP,NPTS 

REAL  CN2 (133) ,T0,TSS,VX,FAC,V1,V2,DV 

COMMON  Blocks :  None 


REAL  FUNCTION  ABSN20 

Arg\iment  Declarations: 

V  -  REAL  Variable  -  Waveniimber  (cm‘^) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINS IC  REAL , INT , MIN 

Local  Variable  Declarations : 

INTEGER  I,IP,NPTS 

real  CN20 ( 7 ) , WL , WLX , FAC , WLl , WL2 , DWL 

COMMON  Blocks :  None 


REAL  FUNCTION  ABSN02 


Argument  Declarations: 

V  -  REAL  Variable  -  Wavenumber  (cm‘^) 

PARAMETER  Declarations : 

INTEGER  NMAX 

PARAMETER  (NMAX=7176) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  INT , REAL 

EXTERNAL  N02BD 

Local  Variable  Declarations : 

INTEGER  N 

REAL  XI , FAC 

COMMON  Blocks:  /N02XS/ 
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SUBROUTINE  ABS02 


Argument  Declarations: 


V 

PRESS 

TEMP 

SIGMA 

CONT 

IBAND 

QA 


REAL  Variable  (Input)  -  Wavenumber  (cm‘^) 

REAL  Variable  (Input)  -  Pressure  (mb) 

REAL  Variable  (Input)  -  Temperature  (K) 

REAL  Variable  (Output)  -  Absorption  coefficient  (cm'^  atm) 
REAL  Variable  (Output)  -  Continuum  absorption  coefficient 
(cm'^  atm) 

INTEGER  Variable  ( Input /Output )  -  Band  model  index 

REAL  Variable  ( Input /Output )  -  LOWTRAN  double 
exponential  band  model  parameter 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL  XTERP 

INTRINSIC  INT, MIN, REAL 

EXTERNAL  XTERP, 02UVBD 

Local  Variable  Declarations: 

INTEGER  I , IP, ITRPl 

REAL  PO , TO , DENUM , WL , TORRAT , SDV , APR , VX , FAC , PS , TS 

COMMON  Blocks:  /HERZBG/ , /SHURUN/ 


REAL  FUNCTION  ABS03 


Argument  Declarations: 

V  -  REAL  Variable  -  Wavenumber  (cm‘^) 

TEMP  -  REAL  Variable  -  Temperature  (K) 

PARAMETER  Declarations: 

INTEGER  NMAX 

PARAMETER  (NMAX=3080) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  MIN, REAL, INT 

EXTERNAL  03HHBD, 03CWBD 

Local  Variable  Declarations : 


INTEGER  I, IP 

REAL  DT, VX, FAC, C0,C1,C2 


COMMON  Blocks: 


/03CWB/, /03HHB/ 
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REAL  FUNCTION  ABSS02 


Argijment  Declarations: 

V  -  REAL  Variable  -  Wavenumber  (cm'^) 

PARAMETER  Declarations: 

INTEGER  NMAX 

*  PARAMETER  (NMAX=5562) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  INT , REAL 

EXTERNAL  S02BD 

Local  Variable  Declarations: 

INTEGER  N 

REAL  XI ,  FAC 

COMMON  Blocks:  /S02XS/ 


SUBROUTINE  AECALC 


Argument  Declarations: 

HXTRA  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Extra  altitudes  in 
altitude  grid 

NXTRA  -  INTEGER  Variable  (Input)  -  Dimensicpn  of  HXTRA 
TITLE  -  CHARACTER* (* )  Variable  (Input)  -  Title  in  printout 
HEADNG  -  CHARACTER* (* )  Variable  (Input)  -  Heading  in  printout 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  PLANCK 

INTRINSIC  REAL, MAX, MIN 

EXTERNAL  PLANCK 

Local  Variable  Declarations: 

INTEGER  I,IM,IP 

real  ASUM , ESUM , TSOLAR , TTHRML , V , DV , A , E 


COMMON  Blocks: 


None 


SUBROUTINE  AERSOL 


Argument  Declarations: 

lAERO  -  INTEGER  Variable  (Input)  -  Index  for  aerosol  type 
RH  -  REAL  Variable  (Input)  -  Relative  humidity 

LAYER  -  INTEGER  Variable  (Input)  -  Layer  index 
VIS  -  REAL  Variable  (Output)  -  Visible  range  (km) 

This  is  output  for  the  Navy  Marine  aerosol  model, 
lAERO  =  4,  and  the  Desert  aerosol  model,  lAERO  =  6. 
WIND  -  REAL  Variable  (Input)  -  Current  windspeed  (m/sec) 

WHH  -  REAL  Variable  (Input)  -  2 4 -hour  average  windspeed  (m/sec) 
ICSTL  -  INTEGER  Variable  (Input)  -  Coastal  influence  index 
TEMP  -  REAL  Variable  (Input)  -  Temperature  (K) 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 


MLMAX ,  NWLAER ,  NWLCLD ,  NANG ,  NSTTMP 
{MLMAX=140,  NSTTMP=16) 
(NWLAER=47,  NWLCLD=79,  NANG=65) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


XTERP 
MAX, MIN 

PROFAC , MARINE , ARSLBD , DESAER , BKSTBD , XTERP , 
MIEPHS , ARSABD , ARSXBD 


Local  Variable  Declarations: 


INTEGER  I , lAP , ITRPl , IMATRL 

REAL  BEXT ( NWLAER ) , RHX , CXV , SUM 


COMMON  Blocks: 


/AEROSL/ , /AERSCA/ , /AERSLA/ , /AERSLX/ , /AERUSR/ , 
/BSTAER/ 


REAL  FUNCTION  AH202 


Argument  Declarations: 

V  -  REAL  Variable  -  Wavenumber  (cm'^) 

PARAMETER  Declarations: 

INTEGER  NWL 

PARAMETER  {NWL=29) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

EXTERNAL  XTERP 


Local  Variable  Declarations: 


INTEGER  ITRP 

REAL  XH202 (NWL) ,XD202 (NWL) ,WL(NWL) ,WLO,XLOSCH, 

PH202 

COMMON  Blocks:  None 
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REAL  FUNCTION  AIRTMP 


Argument  Declarations: 

HOUR  -  REAL  Variable  -  Hour  of  the  day  (decimal  time) 

MONTH  -  INTEGER  Variable  -  Month  of  the  year_ (J^  =  1) 
TMIDN  -  REAL  Variable  -  Air  temperature  at  midnight  (K) 

TNOON  -  REAL  Variable  -  Air  temperature  at  noon  (K) 

HOURO  -  REAL  Variable  -  Reference  hour  (decimal  time) 

TAIRO  -  REAL  Variable  -  Reference  air  temperature  (K) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  SIN , COS 

Local  Variable  Declarations: 

real  B ( 1 2 ) , THETA , DELT 

COMMON  Blocks:  /CONSTN/ 


SUBROUTINE  AMMNIA 


Argument  Declarations: 

V  -  REAL  Variable  (Input)  -  Wavenumber  (cm‘^) 

SD  -  REAL  Variable  (Output)  -  S/d  (amagaf^  cm'^) 

Note:  SD  still  needs  to  be  multiplied  by  the 

rotation  and  vibration  partition  function 
OD  -  REAL  Variable  (Output)  -  1/d  (cm)  ^ 

CD  -  REAL  Variable  (Output)  -  Line  wings  contribution  (amagat* 

Note:  CD  still  needs  to  be  multiplied  by  the 

rotation  and  vibration  partition  function 
ALF  -  REAL  Variable  (Output)  -  Line  width  (cm'^) 

IBAND  -  INTEGER  Variable  (Output)  -  Band  model  index 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  INT , MIN 

PARAMETER  Declarations: 

INTEGER  NVMAX 

PARAMETER  ( NVMAX= 111) 

Local  Variable  Declarations: 

INTEGER  IV 

real  SDV(NVMAX) ,0DV(NVMAX) ,ALFV,FAC,V1,V2,DV 

COMMON  Blocks :  None 


cm'^) 
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REAL  FUNCTION  AMOLSC 

Argument  Declarations: 

V  -  REAL  Variable  -  Wavenumber  (cm'^)  • 

P  -  REAL  Variable  -  Pressure  (mb) 

T  ~  REAL  Variable  -  Temperature  (K) 

WH20  -  REAL  Variable  -  Water  vapor  mixing  ratio  (ppm) 

WC02  -  REAL  Variable  -  Carbon  dioxide  mixing  ratio  (ppm) 

W02  -  REAL  Variable  -  Oxygen  mixing  ratio  (ppm)  w 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  DEPOL 

DOUBLE  PRECISION  REFRAC 
INTRINSIC  REAL , DPROD 

EXTERNAL  REFRAC 

Local  Variable  Declarations: 

REAL  WL 

DOUBLE  PRECISION  DUM, DPL , XN, ANO 

COMMON  Blocks:  /CONSTN/ 


SUBROUTINE  ASPECT 

Argument  Declarations: 

ISHINE  -  INTEGER  Variable  (Input)  -  Sky/Earthshine  index 
Refer  to  User  Reference  Manual  for  definition. 

PHISH  ~  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Sky/Earthshine 
angles  (deg) 

NASPCT  -  INTEGER  Variable  (Output)  -  Number  of  Sky/Earthshine  angles 
LSRCE  -  INTEGER  Variable  (Input)  -  Location  of  source  altitude  in 
altitude  array 

LBKGD  -  INTEGER  Variable  (Input)  -  Location  of  background  altitude  in 
altitude  array 

XMH  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Atmospheric 
refractivity  as  a  function  of  altitude 
RE  ~  DOUBLE  PRECISION  Variable  (Input)  -  Earth  radius  (km) 

HT  -  REAL  Variable  (Input)  -  Source  altitude  (km) 

PARAMETER  Declarations: 

INTEGER  MLMAX ,  NASMAX ,  ISMX ,  MOLMAX 

PARAMETER  (MLMAX=140,  NASMAX=15) 

PARAMETER  ( MOLMAX= 2  6 ,  I SMX=MOLMAX+  8 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , DBLE , ACOS , ABS 

EXTERNAL  GETGLC 

Local  Variable  Declarations: 

INTEGER  K,M, ICHK , KASPCT ( 15 ) 

REAL  DPHI , PHI 0 , PHIHOR , PHIX , A , B 

DOUBLE  PRECISION  HORA, XMU ( 5 ) , WT ( 5 ) 

COMMON  Blocks:  /CONSTN/ , /USERDF/ 
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SUBROUTINE  ATMPRN 


Argioment  Declarations: 


IFLTR 


TFLTR 

HEADNG 

TITLE 

BW 

BWL 

IGEOM 

IV 

I SMART 


INTEGER  Variable  (Input)  -  Index  for  filter  response 
IFLTR  =  0  implies  a  square  wave  response 
IFLTR  =  1  implies  a  user-defined  response 
CHARACTER* (* )  Variable  (Input)  -  Title  for  user-defined  filter 
CHARACTER*!*)  Variable  (Input)  -  User-defined  heading 
CHARACTER*!*)  Variable  (Input)  -  Title 
REAL  Variable  (Input)  -  Bandwidth  (cm'^) 

REAL  Variable  (Input)  -  Bandwidth  (pm) 

INTEGER  Variable  (Input)  -  Geometry  number 
INTEGER  Variable  (Input)  -  Spectral  interval  number 
INTEGER  Variable  i Input)  -  Summary  switch 


PARAMETER  Declarations: 

NGMAX , NAZMAX , NASMAX , NZSMAX , NMATL , NSCEN , MAXLAT , 
MAXLON , NL , I SMX , NVSMAX , MOLMAX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(NMATL=28,  NSCEN=35,  NVSMAX=20) 

(MAXLAT=3,  MAXLON=l,  NL=50) 

(MOLMAX=26,  ISMX=MOLMAX+8 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  RELHUM 

CHARACTER* 7 2  lOERR 

INTRINSIC  REAL , DBLE , SQRT , COS , SIN 

EXTERNAL  DEVCBD , RELHUM , CHRCBD , PRALT , SETBCK , 

INDXBK , lOERR , ATMSBD , BKGDBD , SCENBD 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


Local  Variable  Declarations: 


INTEGER 

REAL 


I,K,M,MM, lOS, JT, lERR, ITYPEO , ITYPEl , KSCENE 
WLl , WL2 , RHW (NAZMAX) , RHI (NAZMAX) , ALTPR (NAZMAX) , 
TAIRP , FRSNWP , CLDCVP (0:3), TERR , TMIDNP , TNOONP , 
FRICEP ,  FRWTRP 


DOUBLE  PRECISION  RE 
CHARACTER*24  TFLTRO , TFLTRX 

LOGICAL  FLBK 


COMMON  Blocks: 


/ATMDAT/ , /BACKGD/ , /CHRCNM/ , /CONSTN/ , /DEVICE/ , 
/FLAGS/ , /HEADER/ , /INTSTO/  , /OUTPUT/ , /SCENES/ 


115 


DOUBLE  PRECISION  FUNCTION  BAND 


Argument  Declarations: 


XSTAR 

51 

52 

53 
S6 

QA 

DV 

IBAND 


-  DOUBLE  PRECISION  Variable  -  Weak  line  optical  depth 

-  REAL  Variable  -  Summing  variable  for  Lorentz  halfwidth 

times  line  density 

-  REAL  Variable  -  Summing  variable  for  Doppler  halfwidth 

times  line  density 

“  REAL  Variable  -  Summing  variable  for  line  density 

-  REAL  Variable  -  Summing  variable  for  (Lorentz  halfwidth) ^ 

times  line  density 

-  REAL  Variable  -  Exponential  parameter  for  LOWTRAN  model 

-  REAL  Variable  -  Wavenumber  increment  (cm'^) 

-  INTEGER  Variable  -  Index  for  band  model 

IBAND  =0  for  exponential  band  model 

IBAND  =  1  for  Voight  band  model 

IBAND  =  2  for  LOWTRAN  double  exponential  model 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 


MOLMAX,MLIDMX 
(MOLMAX=26,  MLIDMX=45) 


INTRINSIC  and  EXTERNAL  Declarations: 

DOUBLE  PRECISION  DERF 

INTRINSIC  MAX , MIN , REAL , SQRT , LOG , ABS , DELE , EXP , LOGIC 

EXTERNAL  DERF 


Local  Variable  Declarations: 


INTEGER  lEXP 

REAL  ANLINE ,  EXMIN 

DOUBLE  PRECISION  ACBAR,  ADBAR,  ODBAR,  XS  ,  TXP ,  WS  ,  QAWS  ,  WL ,  WD ,  DUM,  U23 

AC2BAR,  RHO ,  FI ,  F2  ,  F3  ,  XSTARP ,  WSL ,  UO  ,  U2  ,  RATIO 
DOUBLE  PRECISION  STORE, WL, WD, UO 

COMMON  Blocks:  /CONSTN/ , /MOLECP/ 
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SUBROUTINE  BBARSL 


Argixment  Declarations: 


ARSLAS 

ARSLSS 

ARSLAT 

ARSLST 

ZP 

KK 

LL 


REAL  Vector  {Len  =  Unspecified)  (Output)  -  Aerosol 
absorption  for  the  solar  region  (km'^) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Aerosol 
scattering  for  the  solar  region  (km'^) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Aerosol 
absorption  for  the  thermal  region  (km'^) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Aerosol 
scattering  for  the  thermal  region  (Jon  ^) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Altitude  array 
for  multiple  scattering  calculation  (m) 

INTEGER  Variable  (Input)  -  Latitude  index 
INTEGER  Variable  (Input)  -  Longitude  index 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX , NWLAER , NWLCLD , NANG , NGMAX , MAXLAT , MAXLON , 
ISMX , MOLMAX , MLIDMX 

(MLMAX=140,  NGMAX=15,  MAXLAT=3,  MAXL0N=1) 
(NWLAER=47,  NWLCLD=79,  NANG=65) 

(M0LMAX=26,  ISMX=M0LMAX+8,  MLIDMX=45) 


INTRINSIC  and  EXTERNAL  Declarations: 


real  PLANCK , XTERP 

EXTERNAL  PLANCK , XTERP , ARSLBD 


Local  Variable  Declarations: 


INTEGER 

REAL 


COMMON  Blocks: 


I,L,LZ 

TMPSLR, TMPTML , SUMS , SUMT, V, DV , PLTML , PLSLR, 
A,S,WZ,DUMA(101) ,DUMAP(101) ,DUMS(101) , 
DUMSP(lOl) ,DUMW(101) , ZKM 

/AEROSL/ ,  /AERSCA/ , /INITAL/ , /MOLECP/ 


REAL  FUNCTION  BB03 


Argument  Declarations: 

X  -  REAL  Variable  -  Ozone  concentration  (atm-cm  STP) 
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SUBROUTINE  BCKCHK 

Argiiment  Declarations  : 

ITERM  -  INTEGER  Variable  ( Input /Output )  -  Background  index. 

Refer  to  User  Reference  manual  for  definition. 
SCTNGS  -  REAL  Variable  (Input)  -  Solar  scattering  angle  (deg) 
SCTNGS  =  0.0  implies  looking  directly  into  the  sun 
SCTNGL  -  REAL  Variable  (Input)  -  Lunar  scattering  angle  (deg) 
SCTNGL  =  0.0  implies  looking  directly  into  the  moon 

PARAMETER  Declarations: 

INTEGER  NGMAX 

PARAMETER  (NGMAX=15) 

COMMON  Blocks:  /FLAGS/ 
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SUBROUTINE  BCKGND 


A 


Argument  Declarations: 


ITYPE 

V 

DV 

RADEM 

RADRF 

RADSD 

XLGAL 

BGAL 

XLECL 

BECL 

HSKYSH 

HSCATT 

HSOLAR 

PROJS 

SHDWS 

HLUNAR 

PROJL 

SHDWL 
TAU 
PHI  IS 

PHIIL 

PHIRF 

AZOBS 

AZSOL 

AZLUN 

BCKSUM 

CC 

BCKFAC 

NPTH 

FRSNW 

FRIGE 

FRWTR 


INTEGER  Variable  (Input)  -  Type  of  background 
REAL  Variable  (Input)  -  Wavenumber  (cm‘^) 

REAL  Variable  (Input)  -  Wavenumber  increment  (cm'^) 

REAL  Variable  (Output)  -  Emitted  background  radiance  (W/cm/sr/cm"  ) 
REAL  Variable  (Output)  -  Reflected  background  radiance 
(W/cm^/sr/cm"^) 

REAL  Variable  (Output)  -  Standard  deviation  of  the  background 
radiance  (W/cm^/sr/cm’^) 

REAL  Variable  (Input)  -  Galactic  azimuth  (deg) 

REAL  Variable  (Input)  -  Galactic  elevation  (deg) 

REAL  Variable  (Input)  -  Ecliptic  azimuth  (deg) 

REAL  Variable  (Input)  -  Ecliptic  elevation  (deg) 

REAL  Variable  (Input)  -  Spectral,  spatially  integrated 
emitted  skyshine  (W/cm^/cm“^) 

REAL  Variable  (Input)  -  Spectral,  spatially  integrated 
scattered  solar  skyshine  (W/cm^/cm“^) 

REAL  Variable  (Input)  -  Spectral  solar  irradiance  (W/cm^/cm‘^) 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Projection  of 
solar  irradiance  on  oriented  surfaces 
REAL  Variable  (Input)  -  Solar  self -shadowing  factor 
REAL  Variable  (Input)  -  Spectral  lunar  irradiance _  (W/cm^/cm‘^) 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Projection  of 
lunar  irradiance  on  oriented  surfaces 
REAL  Variable  (Input)  -  Lunar  self -shadowing  factor 
REAL  Variable  (Input)  -  Transmittance  observer -background 
REAL  Variable  (Input)  -  Elevation  angle  of  incident  solar 
radiation  (deg) 

REAL  Variable  (Input)  -  Elevation  angle  of  incident  lunar 


radiation  (deg) 

REAL  Variable  (Input)  -  Elevation  angle  of  reflected  line 
of  sight  at  the  background  (deg) 

REAL  Variable  (Input)  -  Observer  azimuthal  angle ^  (deg) 

REAL  Variable  (Input)  -  Azimuthal  angle  between  incident 
solar  and  reflected  lines-of-sight  (deg) 

REAL  Variable  (Input)  -  Azimuthal  angle  between  incident 
lunar  and  reflected  lines-of-sight  (deg) 

REAL  Array  (Dim  =  6  x  Unspecified)  ( Input /Output )  - 
Background  material  radiances  (W/cm^/sr/cm"^) 

REAL  Variable  (Input)  -  Fractional  cloud  cover 
REAL  Array  (Dim  =  MAXLAT  x  Unspecified)  (Input)  - 
Background  temperature  proportionality  factor 
INTEGER  Array  (Dim  =  2  x  Unspecified)  (Input)  -  Limits  for 


non-zero  elements  of  BCKFAC 

REAL  Array  (Dim  =  MAXLAT  x  Unspecified)  (Input)  -  Percentage 
snow  ( % ) 

REAL  Array  (Dim  =  MAXLAT  x  Unspecified)  (Input)  -  Percentage 
ice  (%) 

REAL  Array  (Dim  =  MAXLAT  x  Unspecified)  (Input)  -  Percentage 
water  (%) 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


NGMAX ,  NAZMAX ,  NASMAX ,  NZSMAX ,  NMATL ,  MAXLAT ,  MAXLON , 
I SMX ,  NVSMAX ,  MOLMAX 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(NMATL=28,  NVSMAX=20) 

(MAXLAT=3,  MAXL0N=1,  MOLMAX=26,  ISMX=M0LMAX+8 ) 
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SUBROUTINE  BCKGND  (continued) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL 

COMPLEX 
INTRINSIC 
EXTERNAL 


Local  Variable  Declarations: 

INTEGER  I,K,M,NDX,KK,LL, IGRND, ITRPO,NINCL, IRGHO, IRGHl 

REAL  OMEG , WLO , REELS , REFLL , REFLD , EMI S , PLK , XNORM (6,3), 

REFLX , TMPNDX ( 6 ) , EMV, EMH , EMVl , EMHl , EMVF , EMHF , 
SLOPE , FOAMT , WVHT , TMPLYR (0:3), TAIRND , UOBS ( 3 ) , 
USOL ( 3 ) , ULUN ( 3 ) , POBS , PSOL , PLUN , XOBS , XSOL , XLUN 
DOUBLE  PRECISION  EM, EMI , RF , RFI , RTERS { 6 ) , RTERL ( 6 ) , RTERD, VARNC , 

DUMF , SDVM, DUMR, FRSLP ( 6 ) 

COMPLEX  DIELEC , XMUC , INAIR ( 2 ) , INICE , INMAT , REFR , EPSX , RH , 

RV,TV,TH,EPSA 

COMMON  Blocks :  /BACKGD/ , /CONSTN/ , /HEADER/ 


XTERP , SOLAR , GALRAD , PLANCK , STARAD , ZODICL , EXGALS , 
S LUNAR, BDRF 

INDEXW, INDEXI , EMTREF , REFEST 
SQRT , REAL , DBLE , DPROD , ABS , S IN , COS 
XTERP , SOLAR , GALRAD , PLANCK , STARAD , ZODICL , EXGALS , 
BKGDBD , SLUNAR , FRESNL , BDRF , INDEXW , INDEXI , 
EMTREF, SETBCK, REFEST, DEMSXX 
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SUBROUTINE  BCKPRN 


Argument  Declarations: 

*  IFLTR  -  INTEGER  Variable  (Input)  -  Index  for  filter  response 

IFLTR  =  0  implies  a  square  wave  response 
IFLTR  =  1  implies  a  user-defined  response 
TFLTR  -  CHARACTER* (* )  Variable  (Input)  -  Title  for  user-defined  filter 
HEADBK  -  CHARACTER* (* )  Variable  (Input)  -  User-defined  heading 

*  TITLE  -  CHARACTER* (* )  Variable  (Input)  -  Title 

BW  -  REAL  Variable  (Input)  -  Bandwidth  (cm"'-) 

BWL  -  REAL  Variable  (Input)  -  Bandwidth  (pm) 

IGEOM  -  INTEGER  Variable  (Input)  -  Geometry  number 

IV  -  INTEGER  Variable  (Input)  -  Spectral  set  number 

FLBCKZ  -  LOGICAL  Variable  (Input)  -  Flag  for  existence  of  background 
parameters 

PARAMETER  Declarations: 

NGMAX , NAZMAX , NASMAX , MLMAX , NZSMAX , MAXLAT , 

MAXLON , NL , ISMX , NVSMAX , MOLMAX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  NL=50,  NVSMAX=20) 

(MAXLAT=3,  MAXL0N=1,  MOLMAX=26,  ISMX=M0LMAX+8 ) 
INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 72  lOERR 

INTRINSIC  REAL, DBLE,SQRT, COS, SIN 

EXTERNAL  DEVCBD , lOERR , ATMSBD 

Local  Variable  Declarations : 

INTEGER  MM, LB , lOS 

real  WLl , WL2 

DOUBLE  PRECISION  RE 
CHARACTER*24  TFLTRO , TFLTRX 

COMMON  Blocks:  /ATMDAT/ , /BCKDAT/ , /CONSTN/ , /DEVICE/ , /FLAGS/, 

/HEADER/ , /OUTPUT/ 


INTEGER 

PARAMETER 

PT^RAMETER 

PARAMETER 
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REAL  FUNCTION  BDRF 

Argiiment  Declarations: 

PHII  -  REAL  Variable  -  Incident  elevation  angle  (deg)  < 

PHIR  “  REAL  Variable  -  Reflected  elevation  angle  (deg) 

AZIM  -  REAL  Variable  -  Azimuth  (deg) 

WL  -  REAL  Variable  -  Wavelength  (pm) 

DELH  -  REAL  Variable  -  Standard  deviation  of  surface  roughness  (m) 

CORREL  -  REAL  Variable  -  Correlation  length  of  surface  roughness  (m)  » 

ITYPE  -  INTEGER  Variable  -  Roughness  type 

ITYPE  =  1  implies  Gaussian  roughness 
Otherwise,  exponential  roughness 

DIELEC  -  COMPLEX  Variable  -  Permittivity  (dielectric  constant  and 
conductivity)  of  surface 

XMUC  -  COMPLEX  Variable  -  Permeability  of  surface 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  SHADOW 

COMPLEX  DIREFL 

INTRINSIC  MIN , EXP , S IN , COS , CMPLX , ABS , REAL , AIMAG , DBLE , SQRT , 

MAX 

EXTERNAL  DIREFL , SHADOW 

Local  Variable  Declarations: 

INTEGER  I POLRl , I P0LR2 

REAL  SIGMA (2,2), SNC , XKC , XKH , SN3 , XI , SLOPE , DTPRD, XJ , 

AZIMP 

DOUBLE  PRECISION  THETAI , THETAR, PHI , CSl , SNl , CS2 , SN2 , CST, SNT, A1 , 

A2 , A3 , A4 , EX , EY , EZ , EXY , EXYZ , ETEMP , TMP3 
COMPLEX  DENI , DEN2 , DEN3 , DEN4 , XSl , XS2 , DIEFAC , XMUFAC, 

RHOF ( 2 ) 

COMMON  Blocks:  /CONSTN/ 
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SUBROUTINE  BEAUFT 


Argiament  Declarations: 

*  WIND  -  REAL  Variable  (Input)  -  Wind  speed  at  10  m  (m/sec) 

Note:  10  m  height  per  Resolution  9,  International 

Meteorological  Committee,  Paris,  1946 
WAVEHT  -  REAL  Variable  (Output)  -  Wave  height  (m) 

SLOPE  -  REAL  Variable  (Output)  -  RMS  wave  slope 

•  FOAM  -  REAL  Variable  (Output)  -  Fraction  of  foam 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  AINT,MAX,MIN,SQRT 

Local  Variable  Declarations: 

INTEGER  I , IBFRT 

real  WINDMN(0:17) 

real  WNDMAX(0:17) ,WNDMIN(0:17) , 

HTMIN(0 :17) ,HTMAX(0 : 17) ,WNDSPD,FAC, 
WINDCM(3,2) ,SLOPCM(3,2) 


COMMON  Blocks :  None 


REAL  FUNCTION  BETA 


Tlrgument  Declarations: 

ASYM  -  REAL  Variable  -  Phase  function  asymmetry  factor 
INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , ABS , SQRT , MAX , MIN , DBLE 


Local  Variable  Declarations: 


INTEGER 
REAL 
CHG  REAL 


I,  J 

GJ,A(1000) ,SUM,DSUM,G,A0,G2,XBETA 
AHG(60) 


COMMON  Blocks : 


/CONSTN/ 
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REAL  FUNCTION  BETAU 


Argument  Declarations: 

XMUO  -  REAL  Variable  -  Cosine  of  the  zenith  angle  ♦ 

ASYM  -  REAL  Variable  -  Phase  function  asymmetry  factor 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  ABS, REAL, MAX, MIN, SQRT  • 

Local  Variable  Declarations: 

INTEGER  I,J,JP 

REAL  PJM,PJ,G2,AU{3,1000) ,GJ(3) , SUM , DSUM, AO , G 

COMMON  Blocks:  /CONSTN/ 


SUBROUTINE  BINFIL 


Argument  Declarations: 


IFINP 
IF  ATM 
IFBCK 
IFPLM 
IFMSC 
IFTRN 

IFHTR 

IFTP7 

IFTP7 

IFDIS 

FILENM 

ISMARY 


INTEGER  Variable 
INTEGER  Variable 
INTEGER  Variable 
INTEGER  Variable 
INTEGER  Variable 
INTEGER  Variable 
number 

INTEGER  Variable 
INTEGER  Variable 
INTEGER  Variable 
INTEGER  Variable 


( Input / Output ) 
(Input /Output) 
(Input /Output) 
( Inpu  t / Output ) 
( Input /Output ) 
( Input /Output ) 


Input  file  number 
Atmosphere /source  file  number 
Background  file  number 
Plume  file  number 
Multiple  scatter  file  number 
Component  transmission  file 


( Input / Output ) 

( Input /Output ) 

(Input /Output) 

( Input / Output ) 

CHARACTER* (* )  Vector  (Len  =  Unspecified)  -  File  names 
INTEGER  Variable  (Output)  -  File  summaory  switch 


Heat  transfer  file  number 
MODTRAN  TAPE7  file  number 
MODTRAN  TAPES  file  number 
DIS  data  base  file  number 


PARAMETER  Declarations: 

INTEGER  NGMAX 

PARAMETER  (NGMAX=15) 

INTRINSIC  and  EXTERNAL  Declarations: 


CHARACTER*! 

CHARACTER*72 

EXTERNAL 


UPCASE 

lOERR 

RDLINE , FLSTAT , UPCASE , CHKRST , lOERR , CHKVER , DISEND 


Local  Variable  Declarations: 


INTEGER 

LOGICAL 

CHARACTER*! 
CHARACTER*! 
CHARACTER* 40 
CHARACTER*  80 
CHARACTER*!  55 


lOS , NDUMl , NDUM2 , NDUM3 , ISMP 

FILXST, FILXSB, FILXSP, FILXSM, FILXSC , FILXSH, 
FILXS7 , FILXS8 , LDUM 
YES 

STAT ( 2 ) 

HEADNG,HEADNB 
TITLE, TITLB 
VARIAB 


COMMON  Blocks: 


/FLAGS/, /RSTART/ 
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SUBROUTINE  BMOD 


Argument  Declarations ; 

*  V  -  REAL  Variable  (Input)  -  Wavenumber  (cm'^) 

DV  -  REAL  Variable  (Input)  -  Waveniamber  increment  (cm'^) 

NLAT  -  INTEGER  Variable  (Input)  -  Nximber  of  latitudes 

NLON  -  INTEGER  Variable  (Input)  -  Number  of  longitudes 

«  PARAMETER  Declarations: 

INTEGER  MLMAX , I SMX , MAXTMP , MAXLAT , MAXLON , NGMAX , MOLMAX , 

MLIDMX 

PARAMETER  (MLMAX=140,  MOLMAX=26,  ISMX=M0LMAX+8 , 

MAXTMP=5) 

PARAMETER  (MAXLAT=3 ,  MAXLON=l,  NGMAX=15,  MLIDMX=45) 

INTRINSIC  and  EXTERNAL  Declarations: 

real  RADFLD , PARTIT , ABSN2 , ABSH20 , ABSN20 , ABSN02 , 

ABS  S02 , ABS03 , 02  CNT , AH2  02 , ABSCFC , ABCCL4 , 

ABHN04 , ABN205 , ABSCLO 

LOGICAL  EVEN 

INTRINSIC  SQRT , ABS , REAL , INT , MIN 

EXTERNAL  PROFAC , MOLPBD , EVEN , RADFLD , ABSMOL , PARTIT , 

ABSN02 , ABSN2 , ABS03 , H20CNT , 02CNT , ABS02 , ABSH20 , 
ABSN20 , ABSS02 , AH202 , AMMNIA, ABSCFC , ABCCL4 , 
ABHN04 , ABN205 , ABSCLO 

Local  Variable  Declarations : 

INTEGER  K,L,N,KEYML (MLMAX, MAXLAT, MAXLON) ,KK,LL,NDV, 

KEYMLP ( MLMAX , MAXLAT , MAXLON ) , ISWX , MLOLD , NTEMP , 
IV,KEY,KEYP 

real  SD2 ( I SMX , MLMAX , MAXLAT , MAXLON ) , SDV ( MAXTMP ) , 

ODV(MAXTMP) ,TO,VO,SUM,VP,WT,CDV(MAXTMP) , 

TBAND ( MAXTMP ) , RADFL ( MLMAX , MAXLAT , MAXLON ) , 
ADO(ISMX) , FAC (MLMAX, MAXLAT, MAXLON) ,ALF, 

TS (MLMAX , MAXLAT , MAXLON) , TDEPA, 

PRTNO (MAXTMP, I SMX) , TSS (MLMAX, MAXLAT, MAXLON) , 
RADFLO ( ISMX ) , ODAV ( ISMX , MLMAX , MAXLAT , MAXLON) , 
SDX , ODX , CDSX , CDX , PS , PO , HERE , CDX2  5 , CDSX2  5 

LOGICAL  EVN 

COMMON  Blocks :  /CONSTN/ , /INITAL/ , /MOLCON/ , /MOLDAT/ , /MOLECP/ , 

/PRBNDA/, /PRBNDB/ 
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SUBROUTINE  BNDMLG 

Argument  Declarations: 

MOLEC  -  INTEGER  Variable  (Input)  -  Molecular  index  ♦ 

1  -  Water  vapor 

2  “  Carbon  dioxide 

3  -  Ozone 

4  -  Nitrogen  oxide 

5  -  Carbon  monoxide  * 

6  -  Methane 

TEMP  -  REAL  Variable  (Input)  -  Temperature  (K) 

F  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Line  strength 

partition  function 

G  -  REAL  Variable  (Output)  -  Fine  structure  partition  function 

NNN  -  INTEGER  Variable  (Input)  -  DIMENSION  of  F 

PARAMETER  Declarations: 

INTEGER  MOLMAX 

PARAMETER  (MOLMAX=26) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  SQRT , EXP 

Local  Variable  Declarations: 

INTEGER  K 

REAL  TH ( MOLMAX ) , ETHTL , ETHKTL , FN , SUM , SUMl 

COMMON  Blocks:  None 
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SUBROUTINE  BNDPAR 


Argioment  Declarations : 


V 

DV 


-  REAL  Variable  (Input)  -  Wavenumber  (cm'^) 

-  REAL  Variable  (Input)  -  Wavenumber  increment  (cm  ) 


PARAMETER  Declarations: 


INTEGER 


PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX, ISMX,NAZMAX,NASMAX,NGMAX,NZSMAX,NWLAER, 
NWLCLD , NANG , MAXLAT , MAXLON , NVSMAX , MOLMAX , 
MLIDMX 

(MLMAX=140,  MOLMAX=26,  ISMX=MOLMAX+8 ) 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(NWLAER=47,  NWLCLD=79,  NANG=65) 

(MAXLAT=3,  MAXLON=l,  NVSMAX=20,  MLIDMX=45) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

EXTERNAL 
CMMW  EXTERNAL 


IBNSRC 

AMOLSC , XTERP , PHMLSC 

AMOLSC , XTERP , PHFUNC , ARSLBD , BMOD , RAINS P , SNOWS P , 
IBNSRC , OPNSCR, MOLPBD, PHMLSC 
MMWPAR 


Local  Variable  Declarations: 


INTEGER 

REAL 


COMMON  Blocks : 


I, L,K, JICE, JCIRUS,KK,LL, ITRP 

PO , TO , WL , KNABS , RNSCT , SNABS , SNSCT , PS , TS , SDT , DUM , 
CDT, SCPHM, SCPHX, FPIINV, PHASEM (NANG) 

/AEROSL/ , /AERSCA/ , /AERSCC/ , /ARSLSC/ , /CGWTS/ , 
/CLDUSR/ , /CONSTN/ , /HEADER/ , /INITAL/ , /LOWMSC/ , 
/MOLCON/ , /MOLECP/ , /PRBNDA/ , /PRBNDB/ 
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SUBROUTINE  BNTPTH 


Argument  Declarations: 

XS  -  DOUBLE  PRECISION  Vector  {Len  =  Unspecified)  (Input)  -  Optical  depth  ^ 

51  ~  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Surnming  variable 

for  Lorentz  halfwidth  times  line  density. 

52  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Summing  variable 

for  Doppler  halfwidth  times  line  density. 

53  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Summing  variable 

for  line  density 

54  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Summing  variable 

for  continuum 

55  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Summing  variable 

for  scattering 

56  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Summing  variable 

for  (Lorentz  halfwidth) ^  times  line  density . 

XSS  -  DOUBLE  PRECISION  Vector  (Len  =  Unspecified)  (Output)  -  Initial 
values  of  optical  depth  for  new  path 
SIS  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Initial  values 
of  SI  for  new  path 

S2S  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Initial  values 
of  S2  for  new  path 

S3S  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Initial  values 
of  S3  for  new  path 

S4S  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Initial  values 
of  S4  for  new  path 

S5S  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Initial  values 
of  S5  for  new  path 

S6S  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Initial  values 
of  S6  for  new  path 

N  ~  INTEGER  Variable  (Input)  -  Number  of  species 

Local  Variable  Declarations: 

INTEGER  K 

COMMON  Blocks:  None 
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SUBROUTINE  BRBNDR 


Argument  Declarations : 

TMIDN  -  REAL  Array  (Dim  =  MAXLAT  x  Unspecified)  (Input)  -  Temperature  at 
midnight  (K) 

TNOON  -  REAL  Array  (Dim  =  MAXLAT  x  Unspecified)  (Input)  -  Temperature  at 
noon  (K) 

INITV  -  INTEGER  Variable  (Input)  -  Restart  spectral  index 

HEADNG  -  CHARACTER* (* )  Variable  (Input)  -  Header 

TITLE  -  CHARACTER* (* )  Variable  (Input)  -  Title 

MTIME  -  INTEGER  Variable  (Output)  -  Number  of  temporal  values 

PARAMETER  Declarations: 

NGMAX , NAZMAX , NASMAX , NZSMAX , NMATL , NL , NSCEN , 

NTIME , MLMAX , I SMX , NANTMX , NLAYER , MAXLAT , MAXLON , 
NVSMAX , MOLMAX , MLIDMX 
(NMATL=28,  NSCEN=35) 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 

(NTIME=97,  MLMAX=140,  MOLMAX=26,  ISMX=MOLMAX+8 ) 
(NANTMX=25,  NLAYER=20) 

(MAXLAT=3,  MAXLON=l,  NVSMAX=20) 

(NL=50,  MLIDMX=45) 

INTRINSIC  and  EXTERNAL  Declarations: 

SLRCNT , XTERP , AIRTMP , SATUR , SEATMP 
lOERR 

S  IN ,  MAX ,  MIN ,  REAL ,  ABS ,  COS ,  SQRT ,  MOD 
SLRCNT, PRETEM, OPATH, FLUXLW, SOLBND, lOERR, BBARSL, 
AIRTMP , EPHEMS , HTBLNC , XTERP , DEVCBD , CHRCBD , 

SATUR, BKGDBD , SPCLYR , SEATMP , ATMSBD, MOLPBD 

Local  Variable  Declarations: 

I , K, L , M, IM, MTL , ITM, NSTAB, lOS , KK, LL, IG , NDAYS , 

JTIME, ITRPO , ITRP6 , ITYPE , MTLP, LLO 
ZP(lOl) ,UP(101) ,VP(101) ,WP(101) ,ALBS,EMRAD, 

DELTIM, RFDS (NTIME, 6 , NMATL)  , 

DCTIME , SOLDIX , YLUNAZ , YLUNEV , UO , 

YLUNDS, PHLUNY, LTEMP (NTIME) ,TSRF (NTIME) , 

FO , SIGMA, CC , T4 , T1 , T2 , TAIRLC ( NTIME ) , STABRS , 

XLATS , XLONS , XLATL , XLONL , DT2  4 , DUM , 

WINDT (NTIME) , PAIRLC (NTIME) , CH20LC (NTIME) , 

CLCVT(3 , NTIME) , CLBST (3 , NTIME) , CLTPT ( 3 , NTIME ) , 

AHRN ( NANTMX ) , RHT , SLRCX , TLAYER ( 0 : NLAYER+ 1 ) , 

DTMAX , S  PHLYR ( 0 : NLAYER+ 1 ) , DENLYR ( 0 : NLAYER+ 1 ) , 

HTCLYR ( 0 : NLAYER+1 ) , ZLAYER ( 0 : NLAYER+ 1 ) , TSSL , 

DUMLYR ( 2 , NLAYER+1 ) , ARSLAS ( 101 ) , ARSLSS ( 101 ) , 
ARSLAT(lOl) ,ARSLST(101) ,XNORM(6,3) ,SATURL, 

SOLTIM, SOLAZL, SOLEVL 
FLINI 

COMMON  Blocks :  /ANTECD/ , /ATMDAT/ , /BACKGD/ , /BRBNDT/ , /CHRCNM/ , 

/CONSTN/ , /DEVICE/ , /HEADER/ , /INITAL/ , /MOLCON/ , 
/OUTPUT/ 


REAL 

CHARACTER*  7  2 

INTRINSIC 

EXTERNAL 


INTEGER 


PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 
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SUBROUTINE  CALCUL 


Argument  Declarations: 


ISHINE 


LENP 


HEADNG 

TITLE 

FILERT 

IFLTR 

TFLTR 

ISMARY 


INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Sky/earthshine 
index  for  source. 

Refer  to  the  User  Reference  Manual  for  definition. 

INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Path  length 
index 

LENP (I)  =  0  implies  the  short  path 

LENP (I)  =  1  implies  the  long  path,  if  any  ambiguity  exists 
CHARACTER* {* )  Variable  (Input)  -  User-defined  heading 
CHARACTER* (* )  Variable  (Input)  -  Title,  including  version 
number,  date,  and  time  of  file  generations 
CHARACTER* (* )  Variable  (Input)  -  File  root 
INTEGER  Variable  (Input)  -  Filter  index 
CHARACTER* (* )  Variable  -  Filter  name 
INTEGER  Variable  (Input)  -  Summary  index 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NAZMAX ,  NASMAX ,  MLMAX ,  I SMX ,  NGMAX ,  NZ  SMAX ,  MAXL AT , 
MAXLON , NL , MLMX2 , NVSMAX , I STMAX , MOLMAX , NTIME 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  MLMX2=2*MLMAX) 

(M0LMAX=2  6 ,  ISMX=M0LMAX+8 ) 

(MAXLAT=3,  MAXL0N=1,  NL=50,  NVSMAX=20) 
(ISTMAX=30000,  NTIME=97) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC 
CHARACTER* 7 2 
EXTERNAL 


REAL 

lOERR 

PRCALC, SCNRIO, OPNSCR, DEVCBD, SUMFIL, SETBCK, 
INDXBK, BRBNDR, SRCFLX , PUTHDR, RESOLV, lOERR, 
SRCIRR , ATMSBD , SRCGEO 


Local  Variable  Declarations: 


INTEGER 


REAL 


LOGICAL 


I , L , INITGM , INITV , lOS , I SCENE , IV , KK , LL , IFSCRP , 
JSCENE, ISWOLD, ITYPl, lERR, IP, IGEOM,MM, INITVS, 
NSLTOT,NLNTOT, I SWATM (MAXLAT , MAXLON) , ITM, 

KKK , LLL , JX , KX , KL , MTIME 

TMIDN  ( MAXLAT  ,  MAXLON )  ,  TNOON  ( MAXLAT ,  MAXLON )  ,  DV , 
TAIRP , CLDCVP (0:3), TMIDNP , TNOONP , FRSNWP , 
RSOLAR , RLUNAR , YLAT , YLON , FRWTRP , FRICEP 
FLOLD,FLSHN 


COMMON  Blocks :  /ATMDAT/ , /BRBNDT/ , /DEVICE/ , /FLAGS/ , /HEADER/ , 

/INITAL/, /PATHl/  , /PATHlA/, /PATH4/  , /PATHS A/, 
/PATH5B/, /PATH5C/, /PATH5D/, /PATH6/  , /PATHS/  , 
/RSTART/ 
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SUBROUTINE  CALEND 


* 


% 


Argument  Declarations: 


IDAY 

IMONTH 

lYEAR 

IDAYX 

YEAR 

ITYPE 


INTEGER  Variable 
INTEGER  Variable 
INTEGER  Variable 
INTEGER  Variable 


(Input/Output) 

( Input /Output ) 

(Input /Output) 

(Input /Output) 

REAL  Variable  (Output)  -  Decimal  year 
INTEGER  Variable  (Input)  -  Switch 

ITYPE  =  0  implies  day /month /year  input 
ITYPE  =  1  implies  day  of  year  input 


Day  of  the  month 
Month  of  the  year 
Year 

Day  of  the  year 


INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL 

Local  Variable  Declarations: 

INTEGER  IDYMN (13,2) , LPYR, IYR4 , lYRlOO , IYR400 , I 

COMMON  Bloclcs :  None 


SUBROUTINE  CHANGE 


Argument  Declarations: 

CMOL  -  REAL  Vector  (Len  =  Unspecified)  (Input /Output)  -  Molecular 
concentrations  (ppmv) 

CMOLO  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Molecular 
concentrations  at  surface  (ppmv) 

MONTH  -  INTEGER  Variable  (Input)  -  Month  of  year 

lYEAR  -  INTEGER  Variable  (Input)  -  Year 

XLAT  -  REAL  Variable  (Input)  -  Latitude  (deg) 

PARAMETER  Declarations: 

INTEGER  NVAR6 , NYRl , NYR2 

PARAMETER  (NVAR6=6,  NYR1=44,  NYR2=258) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

INTRINSIC  REAL 

EXTERNAL  XTERP 

Local  Variable  Declarations : 

I , ITRPl 

YR(NVAR6) ,C02 (NVAR6) ,N20(NVAR6) , CH4 (NVAR6) , 
CMOL2 , CMOL4 , CM0L6 , YEAR, CMOL5 , CO , YEARl (NYRl ) , 
C02X1 (NYRl ) , YEAR2 (NYR2 ) , C02X2 (NYR2 ) 


INTEGER 

REAL 


COMMON  Bloclcs :  None 
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SUBROUTINE  CHKRST 

Argxoment  Declarations: 

NFILE  -  INTEGER  Variable  (Input)  -  File  unit  number 

RESTRT  -  LOGICAL  Variable  (Output)  -  Restart  flag 

NGEOM  -  INTEGER  Variable  (Output)  -  Geometry  index  for  restart 

NREC  -  INTEGER  Variable  (Output)  -  Spectral  record  index  for  restart 

NRECS  -  INTEGER  Variable  (Output)  -  Spectral  subset  index  for  restart 

PARAMETER  Declarations: 

INTEGER  NVSMAX , NGMAX 

PARAMETER  (NVSMAX=20,  NGMAX=15) 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

INTRINSIC  MAX 

EXTERNAL  lOERR 

Local  Variable  Declarations: 

INTEGER  NHDR(2)  , IH, NG, IG, NVAR (NGMAX)  ,  IV,  IVX, lOS , NVSET, 

IGEOM , NV ( NVSMAX ) , I F I LE , I VS , I HDR (2000) 

REAL  HDR(2500) ,VAR(10000) 

CHARACTER*  4  0  HEADNG 

CHARACTER*  80  TITLE 

COMMON  Blocks :  None 


SUBROUTINE  CHKVER 

Argument  Declarations: 

NFILE  -  INTEGER  Variable  (Input /Output )  -  Device  unit  number 
FILXST  -  LOGICAL  Variable  ( Input /Output )  -  Flag  for  existence  of  file 
HEADNG  -  CHARACTER* (* )  Variable  (Input)  -  Heading  for  reference 
TITLE  -  CHARACTER* (* )  Variable  (Input)  -  Title  for  reference 

INTRINSIC  and  EXTERNAL  Declarations: 


CHARACTER* 7 2  lOERR 

EXTERNAL  lOERR 

Local  Variable  Declarations: 

INTEGER  lOS 

CHARACTER* 40  HEADNX 

CHARACTER* 80  TITLX 

COMMON  Blocks :  None 
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SUBROUTINE  CHTIME 


Argument  Declarations: 

TIME  -  REAL  Variable  (Input /Output)  -  Decimal  time  (hours) 
IHR  -  INTEGER  Variable  (Input /Output)  -  Hours  (hours) 

IMN  -  INTEGER  Variable  (Input /Output)  -  Minutes  (min) 

Value  is  between  0  and  59. 

SEC  -  REAL  Variable  (Input /Output)  -  Seconds _  (sec) 

ITYPE  -  INTEGER  Variable  (Input)  -  Conversion  index 
ITYPE  =  0  implies  decimal  to  Hr,  Min,  Sec 
Otherwise  Hr,  Min,  Sec  to  decimal. 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL,INT 

Local  Variable  Declarations : 

REAL  XMIN 

COMMON  Blocks :  None 


REAL  FUNCTION  CIREX 


Argument  Declarations : 

TEMP  -  REAL  Variable  -  Temperature  (K) 

INTRINSIC  and  EXTERNAL  Declarations : 

INTRINSIC  ABS , EXP , DBLE , REAL , MAX , MIN , SQRT 

Local  Variables 

INTEGER  I 

real  D0,SIGMAE,SQ3,DIAM(5) , WIDTH (5) ,DL(5) 

DOUBLE  PRECISION  SIZEN, FNIOO , FNlOOO , TC , FIWC, B1 , B2 

COMMON  Blocks :  None 
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SUBROUTINE  CIRRUS 


Argument  Declarations: 


ICIRUS 


CIRBS 

CIRTHK 

CIREXT 

CIRICE 

ITYPE 

ISEASN 


INTEGER  Variable  (Input)  -  Cirrus  cloud  index 
ICIRUS  =  0  implies  no  cirrus  clouds 
ICIRUS  =  1  implies  standard  cirrus  clouds 
ICIRUS  =  2  implies  subvisual  cirrus  clouds 
ICIRUS  =  3  implies  a  Heymsfield  cirrus  cloud  model 
REAL  Variable  ( Input /Output )  -  Cirrus  base  altitude  (km) 
REAL  Variable  ( Input /Output )  ^  Cirrus  thickness  (km) 

REAL  Variable  (Input)  -  Extinction  at  0.55  pm  (km'^) 

REAL  Variable  ( Input /Output )  -  Ice  concentration  (gm/m^) 
INTEGER  Variable  (Input)  -  Latitude  index 
INTEGER  Variable  (Input)  -  Season  index 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  MIN 

Local  Variable  Declarations : 


INTEGER  ISN,I 

REAL  CAMEAN(10,2) 

COMMON  Blocks :  None 


SUBROUTINE  CITIES 


Argument  Declarations : 

XLAT  -  REAL  Variable  (Input)  -  Latitude  (deg) 

XLON  -  REAL  Variable  (Input)  -  Longitude  (deg) 

FLURB  -  LOGICAL  Variable  (Output)  -  Flag  for  an  urban  area 
URBNAM  -  CHARACTER* (* )  Variable  (Output)  -  Name  of  urban  area 

PARAMETER  Declarations: 

INTEGER  NCITY 

PARAMETER  (NCITY=289 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  MAX, MIN, INT, LEN, ABS 

Local  Variable  Declarations: 

INTEGER 
REAL 

CHARACTER*  3  4 
COMMON  Blocks: 


I,NLN, IURB{NCITY) ,LNDX(181) ,ILAT,ILATM 
CLAT (NCITY) , CLON (NCITY) , DLAT ( 5 ) , DLON ( 5 ) , YLON 
CITYNM (NCITY) , BLANKS 

None 
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SUBROUTINE  CLDALT 


* 


Argument  Declarations: 


Z 

T 

NTRPAU 

XLAT 

XLONG 

MONTH 

HOUR 

HB 

CLALTB 

CLALTT 


REAL  Vector  (Len  =  Unspecified)  (Input)  -  Altitude  profile^  (km) 
REAL  Vector  (Len  =  Unspecified)  (Input)  -  Temperature  profile  (K) 
INTEGER  Variable  (Input)  -  Position  of  tropopause  in  profile 
REAL  Variable  (Input)  -  Latitude  (deg) 

REAL  Variable  (Input)  -  Longitude  (deg) 

INTEGER  Variable  (Input)  -  Month  of  year 

REAL  Variable  (Input)  -  Time  of  day  (dec.  hours  LST) 

REAL  Variable  (Input)  -  Terrain  altitude  (km) 

REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Cloud  base 
altitude  (km) 

REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Cloud  top 
altitude  (km) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


TMPCLD 

MAX,MIN, ABS, SIGN 
TMPCLD, RDGBL 


Local  Variable  Declarations: 


INTEGER  M,KL,KLX 

real  temp , CLHMIN ( 3 ) , CLHMAX ( 3 ) , FACTM , DUM , FAC , HTMIN , 

GMT (2,2), TSRF ( 2 ) , FRSNWP , CIRR, CLCV ( 2 , 0 : 3 , 2 ) , 
CLDRAD(2,3,2) , FRICEP 


COMMON  Blocks :  None 


SUBROUTINE  CLDLYR 


Argument  Declarations: 


T 

-  REAL 

Variable 

B 

-  REAL 

Variable 

BU 

-  REAL 

Variable 

fraction 

UO 

-  REAL 

Variable 

I 

-  INTEGER  Varia; 

CLA 

-  REAL 

Variable 

CLDP 

~  REAL 

Vector  C 

(Output)  -  Cloud  optical  depth 

(Output)  -  Backscattering  fraction 

(Output)  -  Zenith  angle  dependent  backscattering 


(Input)  -  Cosine  of  solar  zenith  angle 
)le  (Input)  -  Atmospheric  layer  number 
(Output)  -  Layer  cloud  fraction 
,en  =  Unspecified)  (Input)  -  Cloud  cover 

1  -  Low  etage 

2  -  Middle  etage 

3  -  High  etage 

REAL  Variable  (Output)  -  Asymmetry  factor 


(%) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


BETA, BETAU 
MAX 

BETA, BETAU , BRBNBD 


Local  Variable  Declarations: 

REAL  G 

COMMON  Blocks:  /CLDPAR/ 
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SUBROUTINE  CNSTNT 


Argument  Declarations: 

None 

INTRINSIC  and  EXTERNAL 

Declarations : 

CIBM 

INTEGER 

IBITS 

CVAX 

INTEGER 

JIBITS 

CLAH 

INTEGER 

JIBITS 

REAL 

ADD, SUB, MUL, DIV 

DOUBLE  PRECISION 

DADD , DSUB , DMUL , DDIV 

CUNX 

REAL 

FLMIN,FLMAX 

CSUN 

REAL 

R_MIN_NORMAL ,  R__MAX_NORMAL 

CUNX 

DOUBLE  PRECISION 

DFLMIN,DFLMAX 

CSUN 

DOUBLE  PRECISION 

D_MIN_NORMAL ,  D_MAX_NORMAL 

INTRINSIC 

ASIN, DBLE , REAL , INT , ABS , EXP 

INTRINSIC 

IBITS 

CUNX 

INTRINSIC 

MAX 

CVAX 

INTRINSIC 

JIBITS 

CLAH 

EXTERNAL 

JIBITS 

CIBM 

EXTERNAL 

IBITS 

EXTERNAL 

ADD , SUB , MUL , DIV , DADD , DSUB , DMUL , DDIV 

Local  Variable  Declarations: 

INTEGER  I, J/K, IZ,MXR,MXD 

INTEGER* 2  I2(2) 

REAL  X,  Y,  Z,T,ONER,  ZEROR ,  RADIX ,  RADINV,  A,  B 

DOUBLE  PRECISION  DX, DY, DZ , DT, ONED, ZEROD, DRADIX, DRADNV, DA, DB , DC , 

DD 

COMMON  Blocks:  /CONSTN/ 


REAL  FUNCTION  ADD 


Argument  Declarations : 

X  -  REAL  Variable 

Y  -  REAL  Variable 


First  argument 
Second  argument 


REAL  FUNCTION  SUB 


Argument  Declarations: 

X  -  REAL  Variable 

Y  -  REAL  Variable 


First  argument 
Second  argument 


REAL  FUNCTION  MUL 


Argument  Declarations: 


X 

Y 


REAL  Variable  - 
REAL  Variable  - 


First  argument 
Second  argument 


» 
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REAL  FUNCTION  DIV 


Argument  Declarations : 

X  -  REAL  Variable  -  First  argument 

Y  -  REAL  Variable  -  Second  argument 


» 

DOUBLE  PRECISION  FUNCTION  DADD 


Argument  Declarations : 

DX  -  DOUBLE  PRECISION  Variable  -  First  argument 

DY  -  DOUBLE  PRECISION  Variable  -  Second  argiament 


DOUBLE  PRECISION  FUNCTION  DSUB 


Argument  Declarations; 

DX  -  DOUBLE  PRECISION  Variable  -  First  argument 

DY  -  DOUBLE  PRECISION  Variable  -  Second  argument 


DOUBLE  PRECISION  FUNCTION  DMUL 


Argument  Declarations: 

DX  -  DOUBLE  PRECISION  Variable  -  First  argument 

DY  -  DOUBLE  PRECISION  Variable  -  Second  argument 


DOUBLE  PRECISION  FUNCTION  DDIV 


Argument  Declarations: 

DX  -  DOUBLE  PRECISION  Variable 

DY  -  DOUBLE  PRECISION  Variable 


First  argument 
Second  argument 


# 
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CIBM  INTEGER  FUNCTION  IBITS 


Argument  Declarations: 

I  -  INTEGER  Variable  -  Input  variable  ^ 

J  ~  INTEGER  Variable  ~  Initial  position  for  extracting  bits 

K  -  INTEGER  Variable  -  Number  of  bits  to  be  extracted 

INTRINSIC  and  EXTERNAL  Declarations: 

4 

CIBM  INTEGER  IBSET^IBCLR 

CIBM  LOGICAL  BTEST 

CIBM  INTRINSIC  IBSET, IBCLR, BTEST 

Local  Variable  Declarations: 

CIBM  INTEGER  N,NBITS 

COMMON  Blocks:  None 


SUBROUTINE  COAT 


Argument  Declarations: 


RADCOR  -  REAL  Variable  (Input)  -  Core  radius  {]im) 

RADCOT  -  REAL  Variable  (Input)  -  Coating  radius  (pm) 

WL  -  REAL  Variable  (Input)  -  Wavelength  (pm) 

XNP  -  COMPLEX  Vector  (Len  =  Unspecified)  (Input)  - 

indices  of  refraction  of  core  and  coating 
RNB  -  COMPLEX  Variable  (Input)  -  Complex  index  of  refraction  of  the 
medium 

NSANGL  -  INTEGER  Variable  (Input) 

QABSP  -  REAL  Variable  (Output)  - 
(particles  cm~^)  ) 

QSCAT  -  REAL  Variable  (Output)  - 
(particles  cm'^)  ) 

GQSCAT  -  REAL  Variable  (Output)  -  Asymmetry  coefficient  times  QSCAT 


Complex 


-  Number  of  scattering  angles 
Absorption  coefficient  (km'^  per 

Absorption  coefficient  (km"^  per 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 


NXMIE 

(NXMIE=101] 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

INTRINSIC 

EXTERNAL 


NCYCLE 

REAL , CMPLX , AIMAG , ABS , CON JG , INT , COS , S IN 
NCYCLE 


Local  Variable  Declarations: 


INTEGER 

REAL 

LOGICAL 

COMPLEX 


N ,  NSTOP ,  N1 ,  N2  ,  Ml ,  M2  ,  M3  ,  J ,  J  J ,  NS2 
X,Y,FN,CHIY(3)  ,PSIY(3)  ,  P ,  T ,  DUM ,  TAUI ,  QEXT 
FLAG 

RFREL(2) ,AN(2) , BN ( 2 ) , REFREL , CN, C2NM1 , XI , X2 , Y2 , 
CONE , DNBAR , GNBAR , CRACK , BRACK , DXl ( 2 ) , DX2 ( 2 ) , 
DY2 {2) , XIY ( 3 ) , CHIX2 ( 3 ) , CHIPX2 , CHIY2 ( 3 ) , 
CHIPY2,DUMC(4) 


COMMON  Blocks: 


/CONSTN/ , /MIECOT/ 
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REAL  FUNCTION  COMFNC 


Argiiment  Declarations : 

XN  -  REAL  Variable  -  Optical  depth 

ACNP  -  REAL  Variable  -  S\jitiming  variable  for  Lorentz  line  width 

ACND  -  REAL  Variable  -  Summing  variable  for  Doppler  line  width 

IV  -  INTEGER  Variable  -  Switch  for  Doppler /Lorentz  line  shape 

IV  =  0  implies  a  Lorentz  line  shape 
IV  =  1  implies  a  Doppler  line  shape 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  SQRT , LOG , REAL , DPROD 

Local  Variable  Declarations : 

real  test,denc,dend,comc,comd,yn 

DOUBLE  PRECISION  XN2 

COMMON  Blocks:  /CONSTN/ 


SUBROUTINE  CONFIG 


Argument  Declarations:  None 
INTRINSIC  and  EXTERNAL  Declarations: 


CSUN  EXTERNAL 
CIBMV  EXTERNAL 
CLAH  EXTERNAL 


IEEE_HANDLER, ERROR_HANDLER 

ERRSET 

UNDERO 


Local  Variable  Declarations: 


CSUN  INTEGER 


N 


COMMON  Blocks :  None 


CSUN  INTEGER  FUNCTION  ERROR_HANDLER 
Argtiment  Declarations : 

SIG  -  INTEGER  Variable  - 

CODE  -  INTEGER  Variable  -  Error  code  index 
CNTEXT  -  INTEGER  Vector  (Len  =  Unspecified)  - 

Local  Variable  Declarations: 

CSUN  CRARACTER*14  LABEL 


COMMON  Blocks : 


None 


SUBROUTINE  COUPLE 


Argument  Declarations : 

V  -  REAL  Variable  (Input)  -  Wavenumber  (cm‘^) 

DV  -  REAL  Variable  (Input)  -  Wavenumber  increment  (cm'^) 

ISCENE  -  INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  (Input)  -  Baclcground 

scene  index 

ISMOLEC  -  INTEGER  Variable  (Input)  -  Number  of  molecules 

ISWATM  -  INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  (Input)  -  Switch  for 

model  atmospheres 

PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX, NAZMAX , NASMAX , ISMX , NBAND , NZSMAX , NMATL , 
MAXLAT , MAXLON , NGMAX , NVSMAX , MOLMAX 
(MLMAX=140,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MOLMAX=26,  ISMX=M0LMAX+8 ,  NBAND=16) 
(NMATL=28) 

(MAXLAT=3,  MAXL0N=1) 

(NGMAX=15,  NVSMAX=20) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


XTERP 

MAX, SIN,ABS,MIN 

XTERP , BCKGND, PROFAC , INICPL , BKGDBD 


Local  Variable  Declarations: 


INTEGER 

REAL 


CHARACTER*? 


I , L , K , M , LTER , KEY , KEYP , LP , MLP ,  ITER , NPTS , LTOP , 
MTOP , LERR , KK , LL , ITRP  0 , 1 S  PACE , KX , LX , NBCK (2,2) 
EMISS,HP0 (2) ,HPX (MLMAX, NBAND) , HMX ( MLMAX , NBAND ) , 
EMBCK , EMSPAC , REFBCK , WL , DUMl , DUM2 , HSOLAR , CC , 
HLUNAR, PROJL ( 6 ) , RADRF , HPOLD ( 0 : MLMAX+1 ) , FAC , 
HMOLD ( 0 : MLMAX+1 ) , ERR , ERRP , ERRM , REFO , PROJS ( 6 ) , 
BCKFAC (MAXLAT , MAXLON ) , BCKSUM ( 6 , NMATL ) , HSKYO , 
PRJS1(6) , HLNRO , PRJLl ( 6 ) , TAUl , PS90 , PL90 , PB90 , 
AZ09  0 , AZS9  0 , AZL9  0 , HSCATO , HSLRO , DUM , SHDWS , 
SHDWL 
HTYPE ( 2 ) 


COMMON  Blocks :  /BACKGD/ , /CONSTN/ , /HEADER/ , /INITAL/ , /LYRSTO/ , 

/MSPARM/, /PATH4/ 


REAL  FUNCTION  CSPHFN 


Argument  Declarations: 

ASYM  -  REAL  Variable  -  Asymmetry  factor 

THETA  -  REAL  Variable  -  Scattering  angle  (deg) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  COS , INT , REAL , MAX , MIN ,  SQRT 

Local  Variable  Declarations: 

INTEGER  I,IG,IGP 

REAL  G,GCS(-200:200) ,FAC,G2,CST 

COMMON  Blocks:  /CONSTN/ 
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REAL  FUNCTION  DBANDS 


Argument  Declarations: 

XMLBDA  -  REAL  Variable 
BETA  -  REAL  Variable 
LABSUN  -  REAL  Variable 
V  -  REAL  Variable 
DV  -  REAL  Variable 


Ecliptic  longitude  (deg) 
Ecliptic  latitude  (deg) 

Wavenumber  ( cm'^ ) 
Wavenumber  increment  (cm"^) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


ZLAT, SOLAR, PLANCK 

REAL, ABS, MIN 

PLANCK, SOLAR, ZLAT, Z0D2BD 


Local  Variable  Declarations: 

INTEGER  I , IREC , IRECP 

real  FAC ,  REC ,  AU ,  DUM ,  SRC ,  RSOL ,  RSUN ,  SCAT ,  THERM 


COMMON  Blocks:  /ZODBND/ 


SUBROUTINE  DBINIT 


Argument  Declarations:  None 

PARAMETER  Declarations : 

INTEGER  MOLMAX , MLIDMX 

PARAMETER  {MOLMAX=26,  MLIDMX=45) 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

INTRINSIC  INT, INDEX, LEN, ABS 

EXTERNAL  DEVCBD, lOERR 

Local  Variable  Declarations: 

I,N, IOS,NVRMXP, IXM, ISWUFT 
LRECL, lERR 
DUMMY 
NFILE 

/CONSTN/ , /DEVCNM/ , /DEVICE/ , /MOLECP/ 


INTEGER 
CIBM  INTEGER 
REAL 

CHARACTER* 120 
COMMON  Blocks: 
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REAL  FUNCTION  DDIF 


Argument  Declarations: 


U2 

-  REAL 

Variable 

U3 

-  REAL 

Variable 

D1 

-  REAL 

Variable 

D2 

-  REAL 

Variable 

D3 

-  REAL 

Variable 

RIS 

-  REAL 

Variable 

R2 

-  REAL 

Variable 

R2S 

-  REAL 

Variable 

T2 

-  REAL 

Variable 

T3 

-  REAL 

Variable 

G 

-  REAL 

Variable 

-  Upward  flux,  layer  2 

-  Upward  flux,  layer  3 

-  Downward  flux,  layer  1 
~  Downward  flux,  layer  2 

-  Downward  flux,  layer  3 

-  Directional  reflection  coefficient,  layer  1 

-  Diffuse  reflection  coefficient,  layer  2 

”  Directional  reflection  coefficient,  layer  2 

-  Transmission,  layer  2 

-  Transmission,  layer  3 

-  Composite  R  and  T  from  FUNCTION  GAM 


Local  Variable  Declarations: 


REAL  T,R,RR 

COMMON  Blocks:  None 


SUBROUTINE  DEFALT 


Argument  Declarations: 


ISWINP  -  INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Input  switches 

IFLTR  ~  INTEGER  Variable  (Output)  -  Filter  index 

ISHINE  -  INTEGER  Variable  (Output)  -  Earth/ skyshine  index 

NXTRA  -  INTEGER  Variable  (Output)  -  Number  of  extra  altitudes 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NAZMAX , NASMAX , NGMAX , NZ  SMAX , NANTMX , MLMAX , 
MAXLAT , MAXLON , ISMX , NVSMAX , MOLMAX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  MOLMAX=26,  ISMX=M0LMAX+8 ) 
(NANTMX=25,  NVSMAX=20) 

(MAXLAT=3,  MAXL0N=1) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  ABS , AINT , S IGN , MOD , MAX 

EXTERNAL  EXOATM , GBLBCK , DEVCBD 


Local  Variable  Declarations: 


INTEGER  I , ISCENE , IXOTMP , KK , LL 

REAL  TMIDN , TNOON , TSURF , FRSNW , FRWTR , CLDCVP (0:3) 


COMMON  Blocks: 


/ANTECD/ , /DEVICE/ , /HEADER/ , /USERDF/ 
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SUBROUTINE  DEFBCK 


Argument  Declarations: 

NSRCE  -  INTEGER  Variable  (Input)  -  Position  index  for  source 

THETA  -  REAL  Variable  (Input)  -  Source-background  earth-center  angle  (deg) 

JBKGD  -  INTEGER  Variable  (Input)  -  Background  index 

IGEOM  -  INTEGER  Variable  (Input)  -  Geometry  nvimber 

FRSNW  -  REAL  Vector  (Len  =  Unspecified)  -  Percentage  snow  at  end  of 
line-of-sight  (%) 

PRICE  -  REAL  Vector  (Len  =  Unspecified)  -  Percentage  ice  at  end  of 
line-of-sight  {%) 

FRWTR  -  REAL  Vector  (Len  =  Unspecified)  -  Percentage  water  at  end  of 
line-of-sight  (%) 

PARAMETER  Declarations: 


INTEGER 

PTiFAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX , MLMX2 , NAZMAX , NASMAX , NGMAX , NZ  SMAX , NV SMAX , 
MAXLAT ,  MAXLON ,  ISMX ,  MOLM/iX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  MLMX2=2*MLMAX) 

(MAXLAT=3,  MAXL0N=1,  NVSMAX=20) 

( M0LMAX=2  6 ,  ISMX=M0LMAX+8 ) 


INTRINSIC  and  EXTERNAL  Declarations: 


EXTERNAL  BCKCHK , INDXBK , SPTRIG , SETBCK 


Local  Variable  Declarations: 


INTEGER 

REAL 


I,MM,NLOCAT 

XLATP , XLONP , TAIRP , CLDCVP (0:3) , TDUM , TMIDN , TNOON , 
AZP , SOLAZP , FRSNWP , FRICEP , FRWTRP 


COMMON  Blocks: 


/HEADER/ , /PATH5A/ , /PATH5C/ 


n 
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SUBROUTINE  DEMSXX 


Argument  Declarations: 

IGRND  -  INTEGER  Variable  (Input)  -  Material  index 
V  -  REAL  Variable  (Input)  -  Wavenumber  (cm'^) 

DV  -  REAL  Variable  (Input)  -  Wavenumber  increment  (cm'^) 

TEMP  -  REAL  Vector  (Len  =  0 : Unspecif iced)  (Input)  -  Temperature  of  each 
layer  in  material  (K) 

EMV  -  REAL  Variable  (Output)  -  Einissivity  for  vertical  polarization 
EMH  REAL  Variable  (Output)  -  Emissivity  for  horizontal  polarization 

ANGLE  -  REAL  Variable  (Input)  -  Elevation  angle  (deg) 

DH  -  REAL  Variable  (Input)  -  Standard  deviation  of  the  distribution  of 

heights  (m) 

IRGH  ~  INTEGER  Variable  (Input)  -  Roughness  type 
PARAMETER  Declarations: 


INTEGER  NLMAX 

PARAMETER  ( NLMAX= 1 0 ) 

INTRINSIC  and  EXTERNAL  Declarations: 


COMPLEX 

INTRINSIC 

EXTERNAL 


EMTREF, SEAWTR, INDEXW, INDEXI 

CMPLX , AIMAG , MAX , DBLE , DPROD , EXP , REAL , ABS , SQRT , 
SIN 

DIREMS , EMTREF , INDEXI , INDEXW, SEAWTR, SOIL, EMISBD 


Local  Variable  Declarations: 


INTEGER 

REAL 

COMPLEX 


NLAYER, ITYPE,NINCL, IGRD 
WL,DELS 

DSOIL, AIR, WATER, ICE , INEF { 0 : NLMAX ) , INDX ( 2 ) 


COMMON  Blocks: 


/CDRYDS/, /WETNES/ 
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REAL  FUNCTION  DENAIR 

Argument  Declarations: 

P  -  REAL  Variable  -  Pressure  (mb) 

T  -  REAL  Variable  -  Temperature  (K) 

CMOL  -  REAL  Vector  (Len  =  Unspecified)  -  Molecular  concentrations  (ppm) 

PARAMETER  Declarations: 

INTEGER  MLIDMX 

PARAMETER  (MLIDMX=45) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  VIRIAL 

EXTERNAL  VIRIAL , MOLPBD 

Local  Variable  Declarations: 


INTEGER  K 

REAL  RSTAR,  PO  ,  XMAIR,  V2  ,  V3 


COMMON  Blocks: 


/MOLDAT/ 
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REAL  FUNCTION  DENWTR 

Argument  Declarations: 

TEMP  -  REAL  Variable  -  Temperature  (K) 

PARAMETER  Declarations: 

INTEGER  NPTS 

PARAMETER  (NPTS=56) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

EXTERNAL  XTERP 

Local  Variable  Declarations: 

INTEGER  ITRPO 

REAL  T (NPTS ), DEN (NPTS) 

REAL  TC 

COMMON  Blocks:  None 

REAL  FUNCTION  DEPOL 

Argument  Declarations: 

WL  -  REAL  Variable  -  Wavelength  (jjm) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

EXTERNAL  XTERP 

Local  Variable  Declarations: 

REAL  WLD (36), DPL (36) 

COMMON  Blocks:  None 
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DOUBLE  PRECISION  FUNCTION  DERF 


Argument  Declarations: 

DX  -  DOUBLE  PRECISION  Variable  -  Argument  of  error  function 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  MAX, MIN, EXP, ABS 

Local  Variable  Declarations: 

DOUBLE  PRECISION  A(5),T,P,DUM 
COMMON  Blocks :  None 


SUBROUTINE  DESAER 

Argument  Declarations: 

WSPD  -  REAL  Variable  (Input)  -  Wind  speed  at  10  m  altitude  (m/sec) 

VIS  -  REAL  Variable  (Output)  -  Meteorological  range  (km) 

DESEXT  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Extinction 
coefficient  (km"^) 

DESABS  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Absorption 
coefficient  (km‘^) 

ASYMD  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Asymmetry  factor 

PARAMETER  Declarations : 

INTEGER  NWLAER 

PARAMETER  ( NWLAER= 4 7 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  INT,MIN 

EXTERNAL  DSRTBD 

Local  Variable  Declarations: 

INTEGER  I , NWS PD 

REAL  EXT5  5 , RAYSCT , WIND ( 4 ) , FAC , DWND 

COMMON  Blocks:  /CONSTN/ , /DESDAT/ 
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SUBROUTINE  DFLT2 


Argument  Declarations: 


ITYPE 

ISEASN 

lAEROl 

IAER02 

IHAZE 

lUPPER 

ISMX 

MP 

MT 

MC 

MA 

VIS 

RE 

MONTH 

XLAT 

XLONG 

LATSTR 

LONSTR 

NLAT 

NLON 

IBKGD 

HBCK 


INTEGER  Variable  (Input)  -  Latitude  index 
INTEGER  Variable  Unput /Output )  “  Season  index 
INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  ( Input /Output )  - 
Boundary  layer  aerosol  index 

INTEGER  Variable  ( Input /Output )  -  Stratospheric  aerosol  index 
INTEGER  Variable  ( Input /Output )  -  Haze  profile  index 
INTEGER  Variable  ( Input /Output )  -  Upper  haze  profile  index 
INTEGER  Variable  (Input)  -  Maximum  DIMENSION  of  MC 
INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  { Input /Output )  - 
Pressure  profile  index 

INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  ( Input /Output )  - 
Temperature  profile  index 
INTEGER  Array  (Dim  =  ISMX  x  MAXLAT  x  Unspecified) 

(Input /Output)  -  Molecular  concentration  profile  index 
INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  ( Input /Output )  - 
Model  atmosphere  index 

REAL  Array  (Dim  =  MAXLAT  x  Unspecified)  ( Input /Output )  - 
Sea-level  visible  range  (km) 

DOUBLE  PRECISION  Variable  (Output)  -  Earth  radius  (km) 

INTEGER  Variable  (Input)  -  Month  of  the  year  (Jan  =1  ,...) 
REAL  Variable  (Input)  -  Latitude  (deg) 

REAL  Variable  (Input)  -  Longitude  (deg) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Latitude  of  the 
model  atmosphere. 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Longitude  of  the 
model  atmosphere. 

INTEGER  Variable  (Output)  -  Number  of  latitudes 
INTEGER  Variable  (Output)  -  Number  of  longitudes 
INTEGER  Variable  (Input)  -  Background  index 
REAL  Variable  (Input)  -  Terrain  altitude  (km) 


PARAMETER  Declarations: 

INTEGER  NL ,  MAXLAT ,  MAXLON 

PARAMETER  (NL=50,  MAXLAT=3 ,  MAXLON=l) 

INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

INTRINSIC 

EXTERNAL 


MDLATM,  IDAERO 

ABS , SQRT , COS , S IN , MIN , DBLE , INT 
ATMSBD , MDLATM , IDAERO 


Local  Variable  Declarations: 


INTEGER  K, KK, LL , ITYPEO , JTYPE 


COMMON  Blocks: 


/ATMDAT/ , /CONSTN/ 
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SUBROUTINE  DFLT8 


Argrunent  Declarations: 

VI  -  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Initial 

wavenumber  (cm‘^  or  micron) 

V2  -  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Final 

wavenumber  (cm‘^  or  micron) 

DVI  -  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Calculation 
width  (cm'^) 

IDV  -  INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Wavenumber/ 
Wavelength  index 

IDV  =  1  implies  wavenumber  (cm"^) 

IDV  =  2  implies  wavelength  (micron) 

DWL  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Calculation 
width  (micron) 

NV  -  INTEGER  Variable  (Output)  -  Number  of  wavenumber  sets  of  values 

NVMAX  -  INTEGER  Variable  (Input)  -  Maximum  number  of  wavenumber  sets  of 

values 

ISPCAL  -  INTEGER  Variable  (Output)  -  Spectral  calculation  index 
ISPCAL  =  1  implies  2  cm"^  band  parameters 

ISPCAL  =  3  implies  line-by-line  millimeter  wave  parameters 
PARAMETER  Declarations : 


INTEGER  MOLMAX , MLIDMX 

PARAMETER  (MOLMAX=26,  MLIDMX=45) 

INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

CHARACTER* 2 

INTRINSIC 

EXTERNAL 


DVINCR 

UPCASE 

MAX,MIN,ABS,AINT 

DVINCR, RDLINE , GETVEC , UPCASE , DEVCBD 


Local  Variable  Declarations: 


INTEGER 

REAL 

CHARACTER*255 


I,L,N1,N2,N3 

VR ( 2 ) , VI , VF , VX, DVX 

VARIAB , VARSl , VARS 2 , VARS 3 


COMMON  Blocks: 


/CONSTN/ , /DEVICE/ , /MOLECP/ 


¥ 


« 


« 
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COMPLEX  FUNCTION  DIREFL 

Argument  Declarations: 

*  DOTPR  -  REAL  Variable  -  Dot  product  of  incident  vector  to  surface  normal 
DIELEC  -  COMPLEX  Variable  -  Permittivity  (dielectric  constant  and 

conductivity)  of  surface 

XMU  -  COMPLEX  Variable  -  Permeability  of  surface 
IPOLAR  -  INTEGER  Variable  -  Polarization  index 

*  IPOLAR  =  1  implies  polarization  parallel  to  surface 

IPOLAR  =  2  implies  polarization  normal  to  surface 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  CMPLX,SQRT 

Local  Variable  Declarations: 

COMPLEX  EP,CCST 

COMMON  Blocks:  None 


SUBROUTINE  DISEND 

Argument  Declarations: 

IFDIS  -  INTEGER  Variable  (Input)  -  File  number  for  DIS  file 
PARAMETER  Declarations: 

INTEGER  NVSMAX , NGMAX 

PARAMETER  (NVSMAX=20,  NGMAX=15) 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

EXTERNAL  lOERR 

Local  Variable  Declarations: 

INTEGER  NHDR(2) ,NVAR(NGMAX) , IV, IVSET, IVS , IG, NVSET , 

+  NVS (NVSMAX) ,IH,IOS,ICHK,IHDR(6000) , 

+  NGEOM,IGEOM 

real  HDR(7500) ,VAR(10000) 

CHARACTER* 40  HEADNG 

CHARACTER* 80  TITLE 

EQUIVALENCE  ( NGEOM , IHDR ( 1 ) ) , ( NVSET , IHDR ( 2 ) ) , 

+  (NVS(l) ,IHDR(3) ) 
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SUBROUTINE  DISPRN 


Argument  Declarations: 


IFDIS 

IGEOM 

NAZ 

NASPCT 

NAZSH 


INTEGER  Variable  (Input)  -  File  number  for  DIS  file 
INTEGER  Variable  (Input)  -  Number  of  geometry 
INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Number  of 
observer  azimuths 

INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Number  of 
earth /skyshine  elevation  angles 
INTEGER  Variable  (Input)  --  Number  of  earth/ skyshine 
azimuth  angles 


PARAMETER  Declarations : 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NGMAX ,  NAZMAX ,  NASMAX ,  NZSMAX ,  NMATL ,  MAXLAT , 
MAXLON^MLMAX 

(NGMAX=15,  NAZMAX=3  0,  NASMAX=15,  NZSMAX=4) 
(NMATL=28) 

(MAXLAT=3,  MAXL0N=1) 

(MLMAX=100) 


INTRINSIC  and  EXTERNAL  Declarations: 


CHARACTER* 7 2  lOERR 

EXTERNAL  lOERR 


Local  Variable  Declarations: 


INTEGER 


L,M,MM, lOS 


COMMON  Blocks: 


/BCKDAT/, /INTSTO/ 


REAL  FUNCTION  DNDR 


Argument  Declarations: 

RADN  -  REAL  Vector  (Len  =  Unspecified)  -  Midpoints  of  the  radii 
intervals  (microns) 

IMATRL  -  INTEGER  Variable  -  Particle  material  index 
TEMP  -  REAL  Variable  -  Temperature  (K) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  GAMMLN 

INTRINSIC  REAL , EXP , LOG , SQRT , MAX , MIN , INT , AINT , ABS , DBLE 

EXTERNAL  GAMMLN 

Local  Variable  Declarations: 

INTEGER  I, IP 

REAL  TSSQ , SUM , CON , DR , XI , FAC , RATE , GAM , DO , DP , RO  P , 

DIAM(5) ,DL(5) , SIZEN 
DOUBLE  PRECISION  FNl 00 , FNIOOO , B1 , B2 

COMMON  Blocks:  /CONSTN/ , /MATERL/ 
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REAL  FUNCTION  DPLDT 

Argument  Declarations: 

TEMP  -  REAL  Variable  -  Temperature  (K) 

V  -  REAL  Variable  -  Wavenumber  (cm'^) 

DV  -  REAL  Variable  -  Wavenumber  increment  (cm‘^) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , DELE , EXP , DPROD ,  LOG 

Local  Variable  Declarations : 

INTEGER  I 

REAL  VP 

DOUBLE  PRECISION  X, Y, Cl , C2 , XMU { 3 ) , WT ( 3 ) , DPL 
COMMON  Blocks:  /CONSTN/ 


SUBROUTINE  DRTLAY 

Argument  Declarations: 

R  -  REAL  Variable  (Output)  -  Reflection  coefficient 

T  -  REAL  Variable  (Output)  -  Transmission  coefficient 

BU  -  REAL  Variable  (Input)  -  Backscatter  coefficient 

PHI  -  REAL  Variable  (Input)  -  Elevation  angle  (deg) 

W  -  REAL  Variable  (Input)  -  Scattering  albedo 

TAU  -  REAL  Variable  (Input)  -  Layer  optical  depth 

RE  -  DOUBLE  PRECISION  Variable  (Input)  -  Radius  of  the  earth  (km) 

ZM  -  REAL  Variable  (Input)  -  Prior  altitude  (km) 

Z  -  REAL  Variable  (Input)  -  Altitude  of  interest  (km) 

ZP  -  REAL  Variable  (Input)  -  Next  altitude  (km) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  SQRT , EXP , ABS , DBLE , REAL ,  SIN 

Local  Variable  Declarations: 

REAL  U,EM,G 

COMMON  Blocks:  /CONSTN/ 
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REAL  FUNCTION  DVINCR 


Arg-oment  Declarations: 

V  -  REAL  Variable  -  Wavenumber  (cm‘^) 

DVI  -  REAL  Variable  -  Initial  wavenumber  increment  (cm"^) 

IDV  -  INTEGER  Variable  -  Wavenumber /wavelength  index 
IDV  =  1  implies  wavenumber  (cm'^) 

IDV  =  2  implies  wavelength  (micron) 

IDV  =  3  implies  frequency  (GHz) 

DWL  -  REAL  Variable  -  Wavelength  increment  (micron) 

PARAMETER  Declarations : 

INTEGER  MOLMAX, MLIDMX 

PARAMETER  (MOLMAX=26,  MLIDMX=45) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  AINT.MAX 

COMMON  Blocks:  /MOLECP/ 


SUBROUTINE  ECLGAL 


Argument  Declarations: 


ALPHA 

DELTA 

XL 

XB 


REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 


(Input)  -  Ecliptic  azimuth  (deg) 
(Input)  -  Ecliptic  elevation  (deg) 
(Output)  -  Galactic  azimuth  (deg) 
(Output)  -  Galactic  elevation  (deg) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  SIN, COS , ATAN2 , ABS 

Local  Variable  Declarations: 


REAL 


CSA , SNA, CSD , SND , CSO , SNO , DUMl , DUM2 , DUM3 , XLP , XBP , 
CSL, SNL 


COMMON  Blocks: 


/CONSTN/ 


REAL  FUNCTION  EHBSLO 


Argument  Declarations : 

X  -  REAL  Variable  -  Argument 

INTRINSIC  and  EXTERNAL  Declarations: 

DOUBLE  PRECISION  POLY 

INTRINSIC  DBLE , ABS , EXP , SQRT , REAL 

EXTERNAL  POLY 

Local  Variable  Declarations : 

DOUBLE  PRECISION  Cl ( 7 ) , C2 ( 9 ) , T , T1 , T2 

COMMON  Blocks :  None 


REAL  FUNCTION  EMISSV 


Ar giiment  Dec larations: 

R  -  REAL  Variable  -  Distance  from  sun 

V  -  REAL  Variable  -  Wavenumber  (cm"^) 

PARAMETER  Declarations: 


INTEGER  MOLMAX , ML I DMX 

PARAMETER  (MOLMAX=26,  MLIDMX=45) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  SOLAR, PLANCK 

INTRINSIC  MAX, MIN, INT, LOGIC, REAL 

EXTERNAL  ZODIBD, SOLAR, PLANCK 

Local  Variable  Declarations : 


INTEGER  IW, IWP, ICEN, ICENP 

real  DMIN  ,  DMAX ,  DSLOPE ,  ALINE ,  FACW ,  FACD ,  C ,  AWL , 

SOLDIS , VI , V2 , TEMP 


COMMON  Blocks: 


/MOLECP/, /SILEMS/ 


COMPLEX  FUNCTION  EMTREF 


Argument  Declarations : 


INDEXM 

INDEXI 

F 

NINCL 

ITYPE 


COMPLEX  Variable  -  Index  of  refraction  of  matrix 
COMPLEX  Vector  (Len  =  Unspecified)  -  Index  of  refraction  of 
inclusions 

REAL  Vector  (Len  =  Unspecified)  -  Volume  fraction  of  inclusions 
INTEGER  Variable  -  Number  of  inclusion  types 
INTEGER  Variable  -  Type  of  mixture 

ITYPE  =  0  implies  the  Bruggeman  effective  medium  theory  which 
applies  to  a  two-component  mixture  in  which  there 
are  no  distinguishable  inclusions  embedded  in  a 
definite  matrix 

ITYPE  =  1  implies  Maxwell -Garnett  theory  for  spherical 
inclusions  in  a  matrix 

ITYPE  =  2  implies  the  Lorentz-Lorens  form  of  the  Clausius- 

Mosotti  equation  for  a  mixture;  this  equation  holds 
for  gases,  but  is  only  an  approximation  for  liquids 
(i.e.,  it  fails  near  strong  absorption  bands) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  SQRT, CMPLX 


Local  Variable  Declarations: 


INTEGER  I 

COMPLEX  E , EM , VF , BETA , EAV , C 1 , C2 , DUM 

COMMON  Blocks:  None 


f 
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SUBROUTINE  ENDPT 


b- 


Jb 


Argiixnent  Declarations: 


R 

THETA 

PHI 

IZ 

LLST 

SLRNG 

BETA 

JTPGM 


HSEND 

lERR 


Slant  range  (kin) 
Earth  center 


-  Elevation  angle 


REAL  Vector  (Len  =  Unspecified)  ( Input /Output ) 

REAL  Vector  (Len  =  Unspecified)  ( Input /Output ) 
angle  (rad) 

REAL  Vector  (Len  =  Unspecified)  ( Input / Output ) 

INTEGER  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Altitude  index 
INTEGER  Variable  (Input)  -  Location  of  last  valid  point  on  ray 
REAL  Variable  (Input)  -  Total  slant  range  (km) 

REAL  Variable  (Input)  -  Total  earth  center  angle  (deg) 

INTEGER  Variable  (Input)  -  Type  of  calculation 
JTPGM  =  5  implies  slant  range  is  specified 
JTPGM  =  6  implies  earth  center  angle  is  specified 
JTPGM  =  9  implies  earth  center  angle  is  specified 
REAL  Variable  (Output)  -  End  point  altitude  (km) 

INTEGER  Variable  (Output)  -  Error  index 

lERR  =  0  implies  no  error  encountered  ^  n 

lERR  =  ”1  implies  initial  value  exceeds  specified  value  or  final 
value  does  not  exceeds  specified  value 


PARAMETER  Declarations: 


INTEGER 


PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX ,  I SMX ,  NNNMAX ,  NAZMAX ,  NASMAX ,  NGAS ,  NGMAX , 

NZSMAX ,  MAXLAT ,  MAXLON ,  NPTS ,  NVSMAX ,  NVSA ,  MOLMAX , 
MLIDMX 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  NNNMAX=5,  NGAS=6) 

(MOLMAX=26,  ISMX=M0LMAX+8 ,  MLIDMX=45) 

(MAXLAT=3,  MAXL0N=1,  NVSMAX=20,  NVSA=9) 
{NPTS=2000) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

INTRINSIC 

EXTERNAL 


ISTAER 

STRCN2 , XTERP , HAZE 

REAL, DBLE, MAX, MIN, COS, ACOS, SIN, SQRT, SIGN, INT, 
ABS 

STRCN2, XTERP, EQABS, ISTAER, MOLPBD,AERSOL,HYDROM, 

HAZE,CLDRBD 


Local  Variable  Declarations: 


INTEGER 


REAL 


DOUBLE  PRECISION 
LOGICAL 


I , J , K , L , MLP , KK , LL , IDRCT , JM , MLX , KL , JDRCT , KPHI , 
IZI(NPTS) , I TRPAU( MAXLAT, MAXLON) , ITRPO , 
ISTPAU (MAXLAT , MAXLON) , JMM, JP , KLAT , KLON , 

I PRINT 

WL,DTDPJ(NPTS) ,XMHI(NPTS) , XDRCT , VISX, VI , VF, 
DZL,PLI,TLI,RHLI,WI(ISMX) , PRTNFI ( ISMX) , 
CMOLI(ISMX) ,PLUMIF (NNNMAX, NGAS) , 

PLUMIG  (NGAS )  ,  FAC ,  TAV,  FACICE ,  FACSNW,  DUM,  ZLP 
MH , MHM , SNELL , TD , RD , PX ( NPTS ) , DMDH , DXMHl , DXMH2 , 
DPHIl , DPHI2 , RX, PXO , DFAC , DRD, DTD, XMHO 
DUPLIC 


COMMON  Blocks :  /CLDRN/  , /CONSTN/ , /HEADER/ , /INITAL/ , /MOLCON/ , 

/MOLECP/ , /PLMDAT/ , /VSADTA/ 


# 
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SUBROUTINE  EPHEML 


Argiiment  Declarations: 


DAT IT  - 
LONG 

LONSUN  - 
LABSUN  - 

PERSUN  ~ 
OBLIQ  - 
SOLEV  - 
SOLAZ  - 


SOLDI S  - 

XLUNEV  - 
XLUNAZ  - 


PHLUNR  - 


XLNDIS  - 
lECL 


lECS 


ETIME  - 


REAL  Variable  (Input)  -  Geographical  Latitude  of  observer  (deg) 

(+  implies  North) 

REAL  Variable  (Input)  -  Geographical  Longitude  of  observer  (deg) 

(+  implies  East) 

DOUBLE  PRECISION  Variable  (Input)  ~  Longitude  of  the  sun  (deg) 

DOUBLE  PRECISION  Variable  (Input)  -  Mean  ecliptic  longitude  of  the 

sun  (deg) 

DOUBLE  PRECISION  Variable  (Input)  -  Mean  perigee  of  the  sun  (deg) 

DOUBLE  PRECISION  Variable  (Input)  -  Obliquity  of  the  ecliptic  (deg) 

REAL  Variable  (Input)  -  Elevation  of  sun  (deg) 

REAL  Variable  (Input)  -  Azimuth  of  sun  (deg) 

0.0  implies  North  (or  undefined) 

90,0  implies  East 
180.0  implies  South 
270.0  implies  West 

REAL  Variable  (Input)  -  Earth-sun  distance  normalized  by  mean 
distance 

REAL  Variable  (Output)  -  Elevation  of  moon  (deg) 

REAL  Variable  (Output)  -  Azimuth  of  moon  (deg) 

0.0  implies  North  (or  undefined) 

90.0  implies  East 
180.0  implies  South 
270.0  implies  West 

REAL  Variable  (Output)  -  Lunar  phase  (deg) 

0.0  implies  new  moon 
90.0  implies  first  quarter 
180.0  implies  full  moon 
270.0  implies  last  quarter 
360.0  implies  new  moon 

REAL  Variable  (Output)  -  Earth-moon  distance  normalized 
by  the  mean  distance 

INTEGER  Variable  (Output)  -  Lunar  eclipse  index 
lECL  =  0  implies  no  lunar  eclipse 

lECL  =  1  implies  that  a  lunar  eclipse  is  likely  to  affect  the 
calculations.  Consult  an  almanac.  If  there  is  no 
eclipse,  the  output  will  be  reliable. 

INTEGER  Variable  (Output)  -  Solar  eclipse  index 
lECS  =  0  implies  no  solar  eclipse 

lECS  =  1  implies  that  a  solar  eclipse  is  likely  to  affect  the 
calculations.  Consult  an  almanac.  If  there  is  no 
eclipse,  the  output  will  be  reliable. 

DOUBLE  PRECISION  Variable  (Input)  -  Ephemeris  time  since 
Jan  1  1900,  12:00  Noon,  GMT  (days) 


INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , MAX , MIN , S IN , COS , AS IN , ACOS , ATAN2 , SIGN , 

ABS , DBLE , ATAN , MOD 
EXTERNAL  LUNPBD 


Local  Variable  Declarations: 


INTEGER  I 

REAL  LHSUN ,  LHMOON ,  LOCEL ,  MOORAD ,  ARGUM ,  TINMOO ,  PARMEA ,  SUNRAD , 

ERMAX, GHSUN, GHMOON , DECMOO , PARLOC , DIFLON, TEMPI 6 , 

TEMP  1 7  ,  DUMM ,  PARLAX ,  AZ IMOO ,  DEC  SUN ,  XS  ,  YS  ,  Z  S  ,  XM ,  YM ,  ZM , 
GELONG , SUNMOO , CRITEL , THETA 

DOUBLE  PRECISION  GHARI , LONMOO , LATMOO , LABMOO , PERMOO , NODMOO , 

CENT , DUM , BLM , BLS , BRF , BRD , RATE , DAYPYR 

COMMON  Blocks:  /CONSTN/ , /PERLUN/ 


% 
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SUBROUTINE  EPHEMS 


4 


Argument  Declarations: 


LAT 

LONG 

DAY 

MONTH 

YEAR 

TIME 

ITIME 


SOLAZ 


SOLEV 

SOLDIS 

XLUNEV 

XLUNAZ 


XLUNDS 

PHLUNR 

NLAT 

NLON 


REAL  Variable  (Input)  -  Latitude  (in  degrees  and  fractions  of 
degrees,  is  north) 

REAL  Variable  (Input)  -  Longitude  (in  degrees  and  fractions  of 
degrees,  is  east) 

INTEGER  Variable  (Input)  -  Day  of  the  month 
INTEGER  Variable  (Input)  -  Month  of  the  year 
INTEGER  Variable  (Input)  -  Year 

REAL  Variable  (Input)  -  Time  (decimal)  local  standard  (LST)  or 
Greenwich  mean  (GMT) 

INTEGER  Variable  (Input)  -  Time  index 
ITIME  =  0  implies  local  standard  time 
ITIME  =  1  implies  Greenwich  mean  time 
ITIME  =  2  implies  local  daylight  savings  time 
REAL  Variable  (Output)  -  Azimuth  angle  (in  degrees  and  fractions  of 
a  degree) 

0.0  implies  north  (or  undefined) 

90.0  implies  east 
180.0  implies  south 
270.0  implies  west 

REAL  Variable  (Output)  -  Elevation  angle  (in  degrees  and  fractions  of 
a  degree) 

REAL  Variable  (Output)  -  Normalized  solar-earth  distance 
SOLDIS  =  1.0  implies  the  mean  distance 
REAL  Variable  (Output)  -  Lunar  elevation  (deg) 

REAL  Variable  (Output)  -  L\inar  azimuth  (deg) 

0.0  implies  north  (or  undefined) 

90.0  implies  east 
180.0  implies  south 
270.0  implies  west 

REAL  Variable  (Output)  -  Normalized  lunar  distance 
REAL  Variable  (Output)  -  Lunar  phase  (deg) 

INTEGER  Variable  (Input)  -  Number  of  latitudes 
INTEGER  Variable  (Input)  -  Nimiber  of  longitudes 


PARAMETER  Declarations : 

INTEGER  MLMAX , I SMX , MAXLAT , MAXLON , NGMAX , MOLMAX 

PARAMETER  (MLMAX=140,  MOLMAX=26,  ISMX=MOLMAX+8) 

PARAMETER  (MAXLAT=3,  MAXLON=l,  NGMAX=15) 

INTRINSIC  and  EXTERNAL  Declarations: 


REAL  SLPOS 

DOUBLE  PRECISION  EPHTIM 

INTRINSIC  ABS , S IN , COS , MOD , AINT , INT , SIGN , ASIN , ACOS , TAN , 

REAL , ATAN , DBLE , SQRT , MAX , MIN 
EXTERNAL  PLANET , EPHEML , SPTRIG , SLPOS , EPHTIM 


Local  Variable  Declarations: 

INTEGER  I, J, lECL, lECS 

real  lha,dcir, znlong,gmtdeg,err,applon,rasc,dumx, 

PS  AZ , ECCEN , TRANOM , ABERR , OBLQMN , ECANOM , DAYCNT , 
ASCMN , SOLAT , APRASC , EQTIME , HRANG , DECLIN , DECL , 
BETAS , BETAL , DUMMY , TANOM , TEMP 

DOUBLE  PRECISION  LONSUN, LABSUN, PERSON, OBLIQ, CENT, DPMI , A, XMNLAT , 

DDCIR, ANOMN , PERTUB , PERVEN , PERJUP , OBLNUT , ETIME 

COMMON  Blocks :  /CONSTN/ , /FLAGS/ , /INITAL/ 
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DOUBLE  PRECISION  FUNCTION  EPHTIM 


Argument  Declarations: 

DAY  -  INTEGER  Variable  (Input)  -  Day  of  the  month 

MONTH  -  INTEGER  Variable  (Input)  ~  Month  of  the  year 

YEAR  -  INTEGER  Variable  (Input)  -  Year 

TIME  -  REAL  Variable  (Input)  -  Time  (decimal)  local  standard  (LST) 

or  Greenwich  mean  (GMT) 

ITIME  -  INTEGER  Variable  (Input)  -  Time  index 

ITIME  =  0  implies  local  standard  time 
ITIME  =  1  implies  Greenwich  mean  time 
ITIME  =  2  implies  local  daylight  savings  time 

PARAMETER  Declarations: 

INTEGER  NYRMAX 

PARAMETER  (NYRMAX=175) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  ABS,AINT, INT, SIGN, REAL, DBLE , MAX, MIN 

Local  Variable  Declarations: 

INTEGER  I,J,IYR 

REAL  DT ( NYRMAX ) , DYR , FAC , YRl , YR2 , TEMP , DAYCNT , ZNLONG , 

GMTDEG,DCIR 

DOUBLE  PRECISION  UTIME , CENT , DDCIR 
COMMON  Blocks:  None 
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SUBROUTINE  EQABS 


Argument  Declarations: 


ZL 

PL 

TL 

RHL 

XMH 

W 


RE 

WL 

CMOLL 

PLUMEF 


REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 


(Input)  -  Altitude  (km) 

(Output)  -  Pressure  (mb) 

(Output)  “  Temperature  (K) 

(Output)  -  Relative  humidity 
(Output)  -  Refractive  bending  constant 
REAL  Vector  (Len  =  Unspecified)  (Output)  -  Equivalent  absorber 
amounts  (km’^) 

PRTNFN  ”  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Partition  function  for 
each  molecule 

DOUBLE  PRECISION  Variable  (Input)  -  Radius  of  the  earth  (km) 

REAL  Variable  (Input)  -  Wavelength  (lom) 

REAL  Vector  (Len  =  Unspecified)  (Output) 

(ppm) 

REAL  Array  (Dim  =  NNNMAX  X  Unspecified)  (Output) 
partition  function 

PLUMEG  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Fine  structure  partition 


Molecular  concentrations 


“  Line  strength 


function 

NNNMAX  -  INTEGER  Variable  (Input) 
IPRINT  -  INTEGER  Variable  (Input) 
KK  -  INTEGER  Variable  (Input) 
LL  -  INTEGER  Variable  (Input) 


Maximum  number  of  partitions 
Print  index 
Latitude  index 
Longitude  index 


PARAMETER  Declarations: 


INTEGER 


PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX ,  NGAS ,  NASMAX ,  NL ,  MAXLAT IMAXLON ,  NGMAX ,  NLUPR , 
NTEXO ,  NVSA ,  I SMX ,  MOLMAX ,  MLIDMX ,  NVSMAX ,  NAZMAX , 
NZSMAX 

(MLMAX=140,  NGAS=6,  NASMAX=15,  NAZMAX=30) 
(NL=50,  NLUPR=8,  NTEX0=11,  NVSMAX=20) 
(MOLMAX=26,  ISMX=M0LMAX+8 ) 

(MAXLAT=3,  MAXLON=l,  NGMAX=15,  NVSA=9 ) 
(MLIDMX=45,  NZSMAX=4) 


INTRINSIC  and  EXTERNAL  Declarations: 

INTEGER  MDLATM 

real  XTERP , PARTIT , SATUR , RELHUM 

DOUBLE  PRECISION  REFRAC 

INTRINSIC  MAX, REAL, MIN, ABS , INT 

EXTERNAL  XTERP , REFRAC , ATMSBD , UPPRBD , PARTIT , BNDMLG , 

MOLPBD, SATUR, RELHUM, STMLBD, EXMLBD , MDLATM 


Local  Variable  Declarations: 

INTEGER  ITRPl , ITRP2 , MLC , I , K, IWATER, MPX , MTX, MCX , IT , Ml , 

M2,MK 

real  PO , to , PS , TS , SATURL , FAC , ZLBL , RHDUM , ABSLAT , 

FACLAT , PI , P2 , T1 , T2 , Cl , C2 


COMMON  Blocks:  /ATMDAT/, /CONSTN/ , /EXTMOL/ , /FLAGS/ , /HEADER/ , 

/MOLCON/ , /MOLDAT/ , /MOLECP/ , /STDMOL/ , /UPRATM/ , 
/USERDF/ , /VSADTA/ 
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SUBROUTINE  EQUABS 


Argument  Declarations: 


EXTRA  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Extra  altitudes  in 
altitude  grid 

NXTRA  -  INTEGER  Variable  (Input)  -  Dimension  of  EXTRA 
TITLE  -  CEARACTER* ( * )  Variable  (Input)  -  Title  in  printout 
EEADNG  -  CEARACTER* ( * )  Variable  (Input)  -  Reading  in  printout 


PARAMETER  Declarations : 


INTEGER 


PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX ,  I SMX ,  NNNMAX ,  NAZMAX ,  NASMAX ,  NGAS  ,  MAXLAT , 
MAXLON ,  NGMAX ,  NZSMAX ,  NL ,  NVSMAX ,  NVSA ,  MOLMAX , 
MLIDMX 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  NNNMAX=5,  NGAS=6) 

(MOLMAX=26,  ISMX=M0LMAX+8 ,  MLIDMX=45) 
(MAXLAT=3,  MAXLON=l,  NVSMAX=20,  NVSA=9,  NL=50) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

CEARACTER*72 

INTRINSIC 

EXTERNAL 


ISTAER 

STRCN2 , XTERP , RAZE , EEYMS , ELOWT , VISRE 
lOERR 

REAL , MAX , MIN , SQRT , MOD , DBLE 

AERSOL , EQABS , ISTAER , STRCN2 , NXXPAU , CLDRBD , ELOWT , 
CERCBD , DEVCBD , RAZE , MOLPBD , XTERP , EEYMS , lOERR , 
EYDROM , SETALT , SKYNOI , CLDALT , ATMSBD , CEANGE , 
VISRE 


Local  Variable  Declarations: 


INTEGER 

REAL 

CCM3  REAL 

CEARACTER*  8 


I,L,M,LM,LP,NLP,I TRPAU  ( MAXLAT ,  MAXLON )  , 

ISTPAU  (MAXLAT,  MAXLON)  ,  NMSPAU  (MAXLAT,  MAXLON)  , 
IBNLYR , lOS , KK , LL , NLINES , ITRP  0 , I PRINT , K , JCLD 
ZP  (MLMAX)  ,  FACSNW,FACICE,WL,XLO  (MAXLAT,  MAXLON)  , 
DMDE,  VISX,  DUM,  CIRICL  ( MAXLAT ,  MAXLON )  ,  TAV, 
EBLYR, SUMC , VI , VF , ZLP 
XLOSCE 

CLABRV, MOL SYM (MLIDMX ) 


COMMON  Blocks :  /ATMDAT/ , /BCKDAT/ , /CERCNM/ , /CLDRN/  , /CONSTN/ , 

/DEVICE/ , /READER/ , /INITAL/ , /MOLCON/ , /MOLECP/ , 
/OUTPUT/ , /PLMDAT/ , /VSADTA/ 
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SUBROUTINE  EQUECL 


Argiiment  Declarations: 


ALPHA  -  REAL  Variable 
DELTA  -  REAL  Variable 
YEAR  -  REAL  Variable 
XLMBDA  -  REAL  Variable 
BETA  -  REAL  Variable 


(Input)  -  Equatorial  azimuth  (deg) 
(Input)  -  Equatorial  elevation  (deg) 
(Input)  -  Julian  date  (year) 

(Output)  -  Ecliptic  azimuth  (deg) 
(Output)  -  Ecliptic  elevation  (deg) 


INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  SIN,COS, ATAN2 , ABS 


Local  Variable  Declarations: 

real  T , EA , CSA , SNA, CSD , SND , CSE , SNE , DUMl , DUM2 , DUM3 , XL , 

CSL,SNL,B 

COMMON  Blocks:  /CONSTN/ 


SUBROUTINE  ESFIT 


Argument  Declarations: 

OPTDEP  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Optical  depth  due  to 
molecular  band  absorption 

ALPHAD  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Line  width  divided  by 
the  line  spacing 

NMOLEC  -  INTEGER  Variable  (Input)  -  Number  of  molecules 

EXPEND  -  REAL  Variable  (Input)  -  Optical  depth  due  to  exponential  terms  in 
the  band  model  (i.e.,  aerosols,  hydrometeors,  continuum,  certain 

molecules)  ,  . 

AFIT  -  REAL  Vector  (Len  =  unspecified)  (Output)  -  Linear  coefficients  for 
the  exponential  sum  fit  ^  ^  , 

XKFIT  REAL  Vector  (Len  =  unspecified)  (Output)  -  Exponential  coefficients 
for  the  exponential  sum  fit 

NFIT  -  INTEGER  Variable  (Output)  -  Number  of  terms  for  the  exponential  sum 
fit 

PARAMETER  Declarations: 

INTEGER  I SMX , MOLMAX 

PARAMETER  (MOLMAX=26,  ISMX=M0LMAX+8 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , DELE , EXP , SQRT 

EXTERNAL  LAGRBD 

Local  Variable  Declarations: 

INTEGER  K,M 

real  SUMA, TWGP , AFITM , SUMXK 

DOUBLE  PRECISION  BETA, FM, XLG , WLGEX 

COMMON  Blocks :  /CONSTN/ , /LAGUER/ , /LOWMSC/ 


161 


REAL  FUNCTION  EVAPOR 


Argument  Declarations: 

T  -  REAL  Variable  -  Temperature  (K) 

PARAMETER  Declarations : 

INTEGER  NPTS 

PARAMETER  (NPTS=18) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

EXTERNAL  XTERP 

Local  Variable  Declarations: 

INTEGER  ITRPO 

REAL  XLATNT (NPTS ) , TEMP (NPTS ) 


COMMON  Blocks:  None 


LOGICAL  FUNCTION  EVEN 

Argument  Declarations: 

I  -  INTEGER  Variable  -  INTEGER  input 

Local  Variable  Declarations: 

INTEGER  J 

COMMON  Blocks:  None 


REAL  FUNCTION  EXGALS 


Argument  Declarations: 

V  “  REAL  Variable  -  Wavenumber  (cm"^) 

DV  “  REAL  Variable  -  Wavenumber  increment  (cm'^) 

PARAMETER  Declarations: 

INTEGER  NPTS 

PARAMETER  (NPTS=7) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP ,  PLANCK 

EXTERNAL  XTERP , PLANCK 

Local  Variable  Declarations : 

INTEGER  ITRPO 

REAL  WL(NPTS) ,RADNC(NPTS) ,WL0,WLREF 

COMMON  Blocks:  /CONSTN/ 
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SUBROUTINE  EXOATM 


Argument  Declarations: 

IXOTMP  -  INTEGER  Variable  (Input)  -  Exospheric  temperature  index 

IXOTMP  =  0  implies  the  standard  exospheric  temperature  (1000  K) 
IXOTMP  =  1  implies  a  user-specified  exospheric  temperature 
IXOTMP  =  2  implies  a  calculated  exospheric  temperature 
TINE  -  REAL  Array  (Dim  =  MATLAT  x  Unspecified)  (Input)  -  Exospheric 
temperature  (K) 

ISEASN  -  INTEGER  Variable  (Input)  -  Seasonal  index 
ISEASN  =  1  implies  summer 
ISEASN  =  2  implies  winter 
ISEASN  =  3  implies  spring/fall 
NLAT  -  INTEGER  Variable  (Input)  -  Number  of  latitudes 

NLON  -  INTEGER  Variable  (Input)  -  Number  of  longitudes 

PARAMETER  Declarations: 

INTEGER  MAXLAT , MAXLON , NLUPR , NTEXO 

PARAMETER  (MAXLAT=3 ,  MAXLON=l,  NLUPR=8,  NTEXO=ll) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

EXTERNAL  XTERP , UPPRBD 

Local  Variable  Declarations: 

INTEGER  I,KK,LL,ITRP0 

COMMON  Blocks:  /UPRATM/ 
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REAL  FUNCTION  EXOTMP 


Argiiment  Declarations: 

F 

FEAR 
AP 

ISNSPT 

I  DAY 
SOLAZ 
SOLEV 
XLAT 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , ABS , S IN , COS , TAN , ATAN , EXP 

Local  Variable  Declarations: 

INTEGER  ISNSPP, IDAYP 

REAL  A(3) .BETA, P,GAM,XLATB,XM,XN,R,T1,X1,X2,X3,AX, 

+  DUM . HSTAR . TAU , ETA . THETA , FP . FBARP 

COMMON  Blocks:  /CONSTN/ 


-  REAL  Variable  -  Instantaneous  10.7-cm  solar  flux  obtained  from  the 

National  Research  Council.  Ottawa,  Canada 
(10"^^  watts/m^/cycles/sec) 

-  REAL  Variable  -  Average  of  F  over  three  27 -day  solar  rotations 

(10'^^  watts/m^/cycles/sec ) 

-  REAL  Vector  (Len  =  Unspecified)  -  Geomagnetic  planetary  index 

An  alternate  expression  is  KP  (see  equation  below) 

KP  =  0  implies  absolutely  quiet  geomagnetic  activity 
KP  =  2  implies  average  quiet  geomagnetic  activity 

-  INTEGER  Variable  -  Sunspot  index 

ISNSPT  =  1  implies  a  sunspot  minimum 
ISNSPT  =  2  implies  average  sunspot  activity 
ISNSPT  =  3  implies  a  sunspot  maximum 

-  INTEGER  Variable  -  Day  of  the  year  (1  =  January  1) 

-  REAL  Variable  -  Solar  azimuth  (South  =  0,0)  (deg) 

-  REAL  Variable  -  Solar  elevation  (deg) 

-  REAL  Variable  -  Latitude  (+  implies  North/-  implies  South)  (deg) 
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SUBROUTINE  FILOPN 


Argument  Declarations : 

•  IFINP  -  INTEGER  Variable  (Input)  -  Input  file  number 

IFILE  -  INTEGER  Variable  (Input /Output)  -  File  number 

INTRINSIC  and  EXTERNAL  Declarations: 

’•  CHARACTER*  4  UPCASE 

CHARACTER* 72  lOERR 

EXTERNAL  RDLINE, lOERR, UPCASE 

Local  Variable  Declarations: 

INTEGER  lOS 

CHARACTER*255  NFILE 

COMMON  Blocks :  None 


SUBROUTINE  FILRT 


Argument  Declarations : 

FILERT  -  CHARACTER* (* )  Variable  (Input)  -  File  root 

FILENM  -  CHARACTER* (* )  Vector  (Len  =  Unspecified)  (Input)  -  File  names 

PARAMETER  Declarations: 

INTEGER  MOLMAX 

PARAMETER  ( MOLMAX=2  6 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  INDEX , LEN 

EXTERNAL  DEVCBD , LCTRIM 

Local  Variable  Declarations: 


INTEGER  I , IXM 

CIBM  CHARACTER*!  SLASH 


COMMON  Blocks : 


/DEVCNM/ 


f 
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REAL  FUNCTION  FILTER 


Argument  Declarations: 

ITYPE  “  INTEGER  Variable  -  Type  of  filter  response 
ITYPE  =  0  implies  a  square  response 
ITYPE  =  1  implies  a  user-defined  response 

V  -  REAL  Variable  -  Wavenumber  (cm"^) 

VI  -  REAL  Variable  -  Initial  wavenumber  for  square  response  (cm"^} 

VF  -  REAL  Variable  -  Final  wavenumber  for  square  response  (cm“^) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

EXTERNAL  XTERP 

Local  Variable  Declarations: 

INTEGER  ITRPO 

REAL  WLO 

COMMON  Blocks:  /CONSTN/ , /FLTRDT/ 


SUBROUTINE  FLSTAT 


Argument  Declarations: 

FILENM  -  CHARACTER* {* )  Vector  (Len  =  Unspecified)  (Input)  -  File  names 
ISMARY  -  INTEGER  Variable  (Output)  -  Summary  switch 

ISMARY  =  0  implies  full  calculations  desired 
ISMARY  =  1  implies  a  summary  of  an  existing  file 
ISMARY  =  2  implies  a  restart  of  a  previous  calculation 
FILXST  -  LOGICAL  Variable  (Output)  -  Existence  flag  for  IFATM 

FILXSB  -  LOGICAL  Variable  (Output)  -  Existence  flag  for  IFBCK 

FILXSP  -  LOGICAL  Variable  (Output)  -  Existence  flag  for  IFPLM 

FILXSM  -  LOGICAL  Variable  (Output)  -  Existence  flag  for  IFMSC 

FILXSC  -  LOGICAL  Variable  (Output)  -  Existence  flag  for  IFTRN 

FILXSH  -  LOGICAL  Variable  (Output)  -  Existence  flag  for  IFHTR 

FILXS7  -  LOGICAL  Variable  (Output)  -  Existence  flag  for  IFTP7 

FILXS8  -  LOGICAL  Variable  (Output)  -  Existence  flag  for  IFTP8 

FILXSD  -  LOGICAL  Variable  (Output)  -  Existence  flag  for  IFDIS 

PARAMETER  Declarations: 


INTEGER 

PARAMETER 


MOLMAX 

(MOLMAX=:26) 


INTRINSIC  and  EXTERNAL  Declarations: 


CHARACTER*! 
CHARACTER* 7 2 
EXTERNAL 


UPCASE 

lOERR 

DEVCBD,  UPCASE,  lOERR 


Local  Variable  Declarations: 


INTEGER 

CHARACTER*! 


lOS 

RESPON, YES 


COMMON  Blocks: 


/DEVICE/, /MACHIN/ 


166 


SUBROUTINE  FLUXLW 


Argument  Declarations: 


T 

LEV 

FU 

FD 

EMRAD 

CLDP 


REAL  Vector  (Len  =  Unspecified)  (Input)  -  Temperatures  (K)  vs. 
pressure 

INTEGER  Variable  (Input)  -  Altitude  level  index 

REAL  Variable  (Output)  -  Upward  diffuse  longwave  flux  (W/m^)  at 

level  LEV  2. 

REAL  Variable  (Output)  -  Downward  diffuse  longwave  flux  (W/m  )  at 

level  LEV 

REAL  Variable  (Input)  -  Emitted  flux  from  earth  (W/m  ) 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Cloud  cover  (%) 

1  Low  etage 

2  -  Middle  etage 

3  -  High  etage 


INTRINSIC  and  EXTERNAL  Declarations: 


EXTERNAL  BRBNBD 

Local  Variable  Declarations: 

real  A,B,C,D,E,AP,BP,CP,AT,BT,CT,DT,ET, 

ATP , BTP , CTP , CC , CCH , CCL , CH , CL , CM , 
SIGMA, EMHB , EMHT , EMMB , EMMT , EMLB , EMLT 

COMMON  Blocks :  /CLDPAR/ , /CLIMAT/ , /OMATLW/ 


SUBROUTINE  FRESNL 


4 


Argument  Declarations: 


El 

E2 

ANGLE 

RH 

RV 

TH 

TV 


COMPLEX  Variable  (Input)  -  Dielectric  constant  of  layer  that 
electric  field  starts  in 

COMPLEX  Variable  (Input)  -  Dielectric  constant  of  layer  that 
electric  field  ends  up 

REAL  Variable  (Input)  -  Elevation  angle  in  free  space  (deg) _ 
COMPLEX  Variable  (Input)  -  Horizontally  polarized  reflectivity 
COMPLEX  Variable  (Input)  -  Vertically  polarized  reflectivity 
COMPLEX  Variable  (Input)  -  Horizontally  polarized  transmissivity 
COMPLEX  Variable  (Input)  -  Vertically  polarized  transmissivity 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  COS , CMPLX , SQRT , ABS 


Local  Variable  Declarations: 

COMPLEX  Cl , SI , S2 

COMMON  Blocks:  /CONSTN/ 
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REAL  FUNCTION  GALRAD 


Argument  Declarations: 

XL  -  REAL  Variable  -  Galactic  azimuth  {deg) 

B  “  REAL  Variable  -  Galactic  elevation  (deg) 

V  -  REAL  Variable  -  Wavenumber  (cm‘^) 

DV  -  REAL  Variable  -  Wavenumber  increment  (cm”^) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  PLANCK 

INTRINSIC  ABS , EXP 

EXTERNAL  PLANCK 

Local  Variable  Declarations : 

REAL  C ( 3 ) , CO , TO , AL , PHI 

COMMON  Blocks :  /CONSTN/ 


REAL  FUNCTION  GAM 


Argument  Declarations: 


RIS 

-  REAL 

Variable 

R2 

-  REAL 

Variable 

R2S 

-  REAL 

Variable 

R3 

-  REAL 

Variable 

T2 

-  REAL 

Variable 

Directional  reflection  coefficient,  layer  1 
Diffuse  reflection  coefficient,  layer  2 
Directional  reflection  coefficient,  layer  2 
Diffuse  reflection  coefficient,  layer  3 
Transmission,  layer  2 


REAL  FUNCTION  GAMMLN 

Argument  Declarations: 

X  -  REAL  Variable  -  Argument 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , DBLE , LOG 

Local  Variable  Declarations: 

INTEGER  I 

DOUBLE  PRECISION  A ( 6 ) , STP , FPF , TMP , SUM, DXINC , DX 
COMMON  Blocks :  None 
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SUBROUTINE  GBLBCK 


Argument  Declarations : 


XLATIT  ~  REAL  Variable  (Input)  -  Latitude  (deg) 
implies  Northern  hemisphere 

-  implies  Southern  hemisphere 

XLONG  -  REAL  Variable  (Input)  -  Longitude  (deg) 
implies  Western  hemisphere 

-  implies  Eastern  hemisphere 
INTEGER  Variable  (Input)  -  Month  index  (1  =  Jan) 

REAL  Variable  (Input)  ~  Time  of  day  (LST)  (dec.  hr.) 
INTEGER  Variable  (Output)  -  Scene  index 
REAL  Variable  ( Input /Output )  -  Altitude  (km) 

REAL  Variable  ( Input /Output )  -  Surface  temperature  (K) 
REAL  Vector  (Len  =  Unspecified)  (Output)  -  Cloud  cover  (%) 

0  -  Total 

1  -  Low  etage 

2  -  Middle  etage 

3  -  High  etage 

TMIDN  -  REAL  Variable  (Output)  -  Air  temperature  at  midnight  (K) 

TNOON  -  REAL  Variable  (Output)  Air  temperature  at  noon  (K) 

FRSNW  -  REAL  Variable  (Output)  -  Percentage  snow  (%) 

PRICE  -  REAL  Variable  (Output)  -  Percentage  ice  (%) 

FRWTR  “  REAL  Variable  (Output)  -  Percentage  water  {%) 


MONTH 

HOUR 

ISCENE 

ALTIT 

TSURF 

CLDCVR 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


AIRTMP 

REAL , INT , MAX , MIN , MOD , ABS , SIGN 
AIRTMP , RDGBL , RDSCN , ATMSBD , DEVCBD 


Local  Variable  Declarations: 


REAL 


FAC,  GMT  (2, 2)  ,  TSRF  ( 2  )  ,  CLCV  ( 2 , 0  :  3 , 2  )  ,ALT 
CLDRAD (2,3,2), CIRR, HOURO , TAIRO 


COMMON  Blocks :  None 
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SUBROUTINE  GEOM 


Argument  Declarations: 


LI 

L2 

SLRNG 

BETA 

PHIl 

PHI2 

LENP 


ITPGM 

R 

PHI 

THETA 

IZ 

LYR 

LYRMAX 

IBKGD 

RHOS 

BHOS 

PHOS 

SRMAX 

BETMAX 

IWARN 

I  ERR 


HTNGT 

HSEND 

NLAT 

NLON 

FLIMB 


INTEGER  Variable  (Input)  -  Indicates  location  in  profile 
array  of  initial  point  of  path 
INTEGER  Variable  ( Input /Output )  -  Indicates  location  in 
profile  array  of  final  point  of  path 
REAL  Variable  (Input)  -  Slant  range  (km) 

REAL  Variable  (Input)  -  Earth  center  angle  (deg) 

REAL  Variable  (Input)  ~  Elevation  angle  at  point  LI  (rad) 

REAL  Variable  (Input)  -  Elevation  angle  at  point  L2  (rad) 

INTEGER  Variable  (Input)  -  Index  for  the  type  of  path  in 
case  of  any  ambiguity 

LENP  =  0  implies  shorter  path 
LENP  =  1  implies  longer  path 

INTEGER  Variable  (Input)  -  Index  for  the  type  of  geometry 
REAL  Vector  (Len  =  Unspecified)  (Output)  -  Distances 
between  initial  point  of  path  and  intermediate  points 
along  path  (km) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Elevation  angles 
at  intermediate  points  along  path  (rad) 

REAL  Vector  (Len  =  Unspecified)  (Output)  ~  Earth  center 
angles  at  intermediate  points  along  path  (rad) 

INTEGER  Vector  (Len  =  Unspecified)  (Output)  -  Location  in 
altitude  grid  of  intermediate  points  along  path 
INTEGER  Variable  (Output)  -  DIMENSION  of  R,  PHI,  THETA,  and  IZ 
INTEGER  Variable  (Input)  -  Maximum  allowed  DIMENSION  of  R, 

PHI,  THETA,  and  IZ 

INTEGER  Variable  ( Input /Output )  -  Type  of  background 
REAL  Variable  (Input)  -  Slant  range  from  LI  to  tangent  point  at 
L2  (km) 

REAL  Variable  (Input)  -  Earth-center  angle  from  LI  to  tangent 
point  at  L2  (rad) 

REAL  Variable  (Input)  -  Elevation  angle  at  LI  for  L2  to  be  at 
the  tangent  point  (rad) 

REAL  Variable  (Input)  -  Maximum  slant  range  between  LI  and  L2  (km) 
REAL  Variable  (Input)  -  Maximum  earth  center  angle  between  LI 
and  L2  ( deg ) 

INTEGER  Variable  (Input)  -  Convergence  warning  printout  switch 
IWARN  =  0  implies  no  convergence  warning  message  printed 
IWARN  =  1  implies  convergence  warning  message  printed 
INTEGER  Variable  (Output)  -  Error  switch 

lERR  =  -1  implies  fatal  errors  in  geometry 
lERR  =  0  implies  no  errors  in  geometry 
lERR  =  1  implies  warning  in  geometry 

REAL  Variable  ( Input /Output )  -  Tangent  altitude  (km) 

REAL  Variable  { Input /Output )  -  End  point  altitude  (km) 

INTEGER  Variable  (Input)  -  Number  of  latitudes 
INTEGER  Variable  (Input)  -  Number  of  longitudes 
LOGICAL  Variable  (Input)  -  Logical  flag  for  limb  paths 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 


MLMAX ,  I SMX ,  MAXLAT ,  MAXLON ,  NGMAX ,  MOLMAX 
(MLMAX=140,  MOLMAX=26,  ISMX=M0LMAX+8 ) 
(MAXLAT=3,  MAXL0N=1,  NGMAX=15) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  ABS,REAL,DBLE, INT,  SIGN 

EXTERNAL  RAYPTH , INI GEO , ENDPT 
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SUBROUTINE  GEOM  (continued) 


Local  Variable  Declarations: 

INTEGER  I , J , ITER, LP , MLP , JBKGD , IDRCT , ISET ( 2 ) , LLP , JTPGM , 

LENPP,LPP 

real  VAR ( 3 ) , FAC ( 3 ) , EPSR, VARO , DUM, ALTMAX 

DOUBLE  PRECISION  PHID,P(3) 

LOGICAL  FLVAR,FLPHI1,FLPHI2 


COMMON  Blocks : 


/CONSTN/, /INITAL/ 


SUBROUTINE  GETASP 


Argument  Declarations: 

ISHINE  -  INTEGER  Variable  (Output)  -  Sky/earthshine  index 


PARAMETER  Declarations : 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX , NAZMAX , NASMAX , NGMAX , NZSMAX , MAXLAT , MAXLON , 
I SMX ,  NVSMAX ,  MOLMAX 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4 ) 
(MLMAX=140,  NVSMAX=20) 

(MAXLAT=3,  MAXLON=l,  MOLMAX=26,  ISMX=MOLMAX+8 ) 


INTRINSIC  and  EXTERNAL  Declarations : 


INTEGER 

CHARACTER*! 

INTRINSIC 

EXTERNAL 


IGTINT 

UPCASE 

MAX 

IGTINT , GETVEC , RDLINE , DEVCBD , UPCASE 


Local  Variable  Declarations: 


INTEGER 

REAL 

CHARACTER*! 
CHARACTER* 2 55 


NAZDUM,MM 
AZDUM (NZSMAX) 

ACTION, YES 

VARIAB , VARS! , VARS2 , VARS3 


COMMON  Blocks: 


/DEVICE/ , /HEADER/ , /USERDF/ 


SUBROUTINE  GET ATM 


Argiiment  Declarations: 

ITYPE  -  INTEGER  Variable  (Output)  -  Latitude  index 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


NAZMAX , NASMAX , NGMAX , NZ  SMAX , MAXLAT , MAXLON , I SMX , 
NVSMAX, MOLMAX 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MAXLAT=3,  MAXLON=l,  NVSMAX=20) 

(MOLMAX=26,  ISMX=MOLMAX+8 ) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

CHARACTER* 1 
CHARACTER*  4 
INTRINSIC 
EXTERNAL 


IGTINT, NCHATM, NCHAER, NCHSEA, NCHAZE 

GETVAR 

UPCASE 

LWCASE 

MAX 

GETVAR, DEVCBD, IGTINT , RDLINE , NCHATM, LWCASE, 
NCHAER, NCHSEA, NCHAZE , UPCASE , IGTVEC , MRNDFL 


Local  Variable  Declarations: 


INTEGER 

REAL 

CHARACTER* 1 
CHARACTER* 2 55 


K,NMX,KK,LL 
ELPST, RADON 
ACTION, YES 

VARIAB , VARSl , VARS 2 , VARS 3 


COMMON  Blocks : 


/DEVICE/ , /HEADER/ 


172 


SUBROUTINE  GETBCK 


Arg-uxnent  Declarations : 

HXTRA  -  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Extra  altitude 
array  (km) 

NXTRA  -  INTEGER  Variable  ( Input /Output )  -  Number  of  extra  altitudes 
PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NAZMAX ,  NASMAX ,  NGMAX ,  NZSMAX ,  NMATL ,  MAXLAT ,  MAXLON , 
I SMX , NVSMAX , NSCEN , MOLMAX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
{NMATL=28,  NSCEN=35) 

{MAXLAT=3,  MAXLON=l,  NVSMAX=20) 

{MOLMAX=2  6 ,  ISMX=M0LMAX+8 ) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

CHARACTER*! 

INTRINSIC 

EXTERNAL 


IGTINT 
GETVAR 
UPC AS E 
MAX 

RDLINE , GETVAR , IGTINT , DEVCBD , USRBCK , UPCASE , 
GETVEC , BKGDBD 


Local  Variable  Declarations: 


INTEGER 

REAL 

CHARACTER*255 


L , KK , LL , NCLDCV , NPT3 , NCLALB , NCLALT 

DELH 

VARIAB 


COMMON  Blocks : 


/BACKGD/ , /DEVICE/ , /HEADER/ 


SUBROUTINE  GETCLD 


Argument  Declarations: 

HXTRA  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Extra  altitudes  for 
profile  grid  (km) 

NXTRA  -  INTEGER  Variable  (Output)  -  Number  of  extra  altitudes 
HCLDBS  -  REAL  Variable  (Output)  -  Cloud  base  altitude  (km) 

DELCLD  -  REAL  Variable  (Output)  -  Cloud  thickness  (km) 

PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


NAZMAX ,  NASMAX ,  NGMAX ,  NZ  SMAX ,  MAXLAT ,  MAXLON ,  I SMX , 
NVSMAX,MOLMAX 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MAXLAT=3,  MAXL0N=1,  NVSMAX=20) 

(M0LMAX=:2  6  ,  ISMX=M0LMAX+8  ) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

CHARACTER*! 

EXTERNAL 


IGTINT 
GETVAR 
UPC AS E 

GETVAR,  IGTINT,  RDLINE,  DEVCBD,  USRCLD,  UPCASE 


Local  Variable  Declarations : 


INTEGER 

REAL 

CHARACTER*! 
CHARACTER* 2 
CHARACTER*255 


L 

CLDBSU,CLDTPU 
ACTION, YES 
CTYPE 

VARIAB , VARSl , VARS 2 , VARS 3 , VARS 4 


COMMON  Blocks: 


/CLDRN/  , /DEVICE/ , /HEADER/ 


SUBROUTINE  GETEXO 


Argument  Declarations: 


IFINP 

F 

FBAR 

IXOTMP 

FLEXO 

AP 


INTEGER  Variable  (Input)  -  Input  file  number 

REAL  Variable  (Output)  *-  Instantaneous  10.7-cm  solar  flux  obtained 
from  the  National  Research  Council,  Ottawa, 

Canada  (10'^^  watts/m^/cycles /sec) 

REAL  Variable  (Output)  -  Average  of  F  over  three  27-day  solar 
rotations  (10'^^  watts/m^/cycles/sec) 

INTEGER  Variable  (Output)  -  Exospheric  temperature  index 

IXOTMP  =  0  implies  the  standard  exospheric  temperature  (1000  K) 
IXOTMP  =  1  implies  a  user-specified  exospheric  temperature 
IXOTMP  =  2  implies  a  calculated  exospheric  temperature 
LOGICAL  Variable  (Output)  -  Exoatmospheric  temperature  calculation 
flag 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Geomagnetic  planetary 
index 

Note :  Low  value  Ap  =  3 . 

Moderate  value  Ap  =  15 . 

High  value  Ap  =  75. 


AP(1) 

AP(2) 

AP(3) 

AP(4) 

AP(5) 

AP(6) 

AP(7) 


Daily  Ap  index 

3  hr  Ap  index  for  CURRENT  TIME 

3  hr  Ap  index  for  3  hrs  before  current  time 

3  hr  Ap  index  for  6  hrs  before  current  time 

3  hr  Ap  index  for  9  hrs  before  current  time 

Average  of  eight  3  hr  Ap  indicies  from  12  to  33  hrs 
prior  to  current  time 

Average  of  eight  3  hr  Ap  indicies  from  36  to  59  hrs 
prior  to  current  time 


ISNSPT  -  INTEGER  Variable  (Output)  -  Sunspot  index 
ISNSPT  =  1  implies  a  sunspot  minimum 
ISNSPT  =  2  implies  average  sunspot  activity 
ISNSPT  =  3  implies  a  sunspot  maximum 
TINFO  -  REAL  Variable  (Output)  -  Specified  value  of  exoatmospheric 
temperature  (K) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

CHARACTER*! 

EXTERNAL 


IGTINT 

GETVAR 

UPCASE 

GETVAR , DEVCBD , RDLINE , IGTINT , UPCASE , PARSE 


Local  Variable  Declarations: 


INTEGER 
CHARACTER*! 
CHARACTER*  20 
CHARACTER*255 


I, NAP 
ACTION 
VARS (7) 
VARIAB,VARS1 


COMMON  Blocks :  None 
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SUBROUTINE  GETGLC 


Argument  Declarations: 

INDX  ~  INTEGER  Variable  (Input)  -  Index  for  number  of  coefficients 

XMU  -  DOUBLE  PRECISION  Vector  (Len  =  Unspecified)  (Output)  - 

Gauss-Legendre  abscissa  values 

WT  -  DOUBLE  PRECISION  Vector  (Len  =  Unspecified)  (Output)  - 

Gauss-Legendre  weights 

N  ~  INTEGER  Variable  (Output)  -  Number  of  coefficients 

INTRINSIC  and  EXTERNAL  Declarations: 

EXTERNAL  GLCFBD 

Local  Variable  Declarations: 

INTEGER  M,I,IP 

COMNON  Blocks:  /GAUSSL/ 


SUBROUTINE  GETPOS 


Argument  Declarations: 

XLAT  -  REAL  Variable  (Output)  -  Latitude  (+  North/-  South)  (deg) 

XLONG  -  REAL  Variable  (Output)  -  Longitude  (+  East/-  West)  (deg) 

IDAY  -  INTEGER  Variable  (Output)  -  Day  of  the  month 

IMONTH  -  INTEGER  Variable  (Output)  -  Month  of  the  year 

lYEAR  -  INTEGER  Variable  (Output)  -  Year 

TIME  -  REAL  Variable  (Output)  -  Time  (HH.MMSSS) 

ITIME  -  INTEGER  Variable  (Output)  -  Time  index 

ITIME  =  0  implies  Local  Standard  Time 
ITIME  =  1  implies  Greenwich  Mean  Time 
ITIME  -  2  implies  Local  Daylight  Savings  Time 
ICOREF  -  INTEGER  Variable  (Output)  -  Coordinate  reference  index 


PARAMETER  Declarations: 

INTEGER  MOLMAX 

PARAMETER  (M0LMAX=2  6 ) 

INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

CHARACTER*! 
CHARACTER*  3 
INTRINSIC 
EXTERNAL 


IGTINT,MONTH 

GETVAR 

LWCASE 

UPCASE 

REAL , INT , ABS , MOD , INDEX , LEN 
GETVAR , DEVCBD , IGTINT , RDLINE , MONTH , CALEND , 
LWCASE , UPCASE , CHTIME 


Local  Variable  Declarations: 


INTEGER 

REAL 

CHARACTER*255 


IHR, IMN, IDAYX, ITYPl, ICH, ICM, LN 

XMIN,  SEC,  YEAR 

VARIAB 


COMMON  Blocks: 


/DEVICE/ 
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SUBROUTINE  GETSLR 


Argument  Declarations: 


I SOLAR 

ISMPLS 

SOLEV 

SOLAZ 

SOLDIS 

XLATSL 

XLONSL 

ILUNAR 

ISMPLL 

XLUNEV 

XLUNAZ 

PHLUNR 

XLNDIS 

XLATLN 

XLONLN 

I SLANG 

ISLPOS 

lEPHEM 

XLAT 

XLON 


INTEGER  Variable  (Output)  -  Solar  index 

INTEGER  Variable  (Output)  -  Type  of  solar  calculation 

REAL  Variable  (Output)  -  Solar  elevation  (deg) 

REAL  Variable  (Output)  -  Solar  azimuth  (deg) 

REAL  Variable  (Output)  -  Relative  solar  distance 
REAL  Variable  (Output)  -  Sub-solar  point  latitude  (deg) 
REAL  Variable  (Output)  -  Sub-solar  point  longitude  (deg) 
INTEGER  Variable  (Output)  -  Lunar  index 

INTEGER  Variable  (Output)  -  Type  of  lunar  calculations 
REAL  Variable  (Output)  -  Lunar  elevation  (deg) 

REAL  Variable  (Output)  -  Lunar  azimuth  (deg) 

REAL  Variable  (Output)  -  Lunar  phase  (deg) 

REAL  Variable  (Output)  -  Relative  lunar  distance 

REAL  Variable  (Output)  -  Sub-lunar  point  latitude  (deg) 

REAL  Variable  (Output)  -  Sub- lunar  point  longitude  (deg) 

INTEGER  Variable  (Output)  -  Elevation/zenith  angle  index 

INTEGER  Variable  (Output)  -  Position  index 

INTEGER  Variable  (Output)  -  Ephemeris  index 

REAL  Variable  (Input)  -  Reference  latitude  (deg) 

REAL  Variable  (Input)  -  Reference  longitude  (deg) 


PARAMETER  Declarations: 


INTEGER  MOLMAX 

PARAMETER  ( MOLMAX=2  6 ) 

INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

CHARACTER*! 

INTRINSIC 

EXTERNAL 


GETVAR 

UPCASE 

ACOS , COS , ABS , SIGN , ATAN2 , TAN , SIN , REAL , DELE 
GETVAR, DEVCBD, RDLINE, SPTRIG, UPCASE 


Local  Variable  Declarations: 


INTEGER  I 

real  beta , XSLR ( 3 )  , XLNR ( 3 )  ,  DOTPR 

DOUBLE  PRECISION  RSOLAR , RLUNAR , RE 
CHARACTER* 2  ACTION 

CHARACTER*255  VARIAB, VARS! , VARS2 , VARS3 , VARS4 , VARS5 , VARS 6 , 

VARS7 


COMMON  Blocks : 


/CONSTN/, /DEVICE/ 
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REAL  FUNCTION  GETVAR 


Argument  Declarations: 

VARIAB  -  CHARACTER* (* )  Variable  -  Input  string 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

INTRINSIC  INDEX, LEN 

EXTERNAL  lOERR 

Local  Variable  Declarations: 

INTEGER  ICNT,IOS 

REAL  DEFALT 

CHARACTER*?  FMTSTR 

COMMON  Blocks :  None 


SUBROUTINE  GETVEC 


Arg-ument  Declarations: 

VARIAB  -  CHARACTER* {* )  Variable  (Input)  -  Input  string 

X  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Vector  string 

N  ~  INTEGER  Variable  (Output)  -  Length  of  vector  string 

NMAX  -  INTEGER  Variable  (Input)  -  Maximum  length  of  vector  string 

INTRINSIC  and  EXTERNAL  Declarations: 

INTEGER  LENSTR 

CHARACTER* 7 2  lOERR 

EXTERNAL  lOERR , LENSTR , LCTRIM 

Local  Variable  Declarations: 

INTEGER  I , IM, IP, LNMAX, ISW, lOS 

REAL  DEFALT 

CHARACTER*?  FMTSTR 

COMMON  Blocks :  None 
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SUBROUTINE  H20CNT 


Argument  Declarations: 


V 

T 

SH20 

FH20 


-  REAL  Variable 

-  REAL  Variable 

-  REAL  Variable 

-  REAL  Variable 


(Input)  -  Wavenumber  (cm'^) 

(Input)  -  Temperature  (K) 

(Output)  -  Self “broadened  coefficient 
(Output)  -  Foreign-broadened  coefficient 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  MAX , MIN , INT , REAL , TANK , EXP 

EXTERNAL  H20BD 


Local  Variable  Declarations: 


INTEGER 

REAL 


I,N,NP 

SBCOEF { 2 ) , XI , FAC , RADFN , FBCOEF , FDG 


COMMON  Blocks:  /CONTNS/ 


REAL  FUNCTION  HAZE 


Argument  Declarations: 


H 

IHAZE 

ISEASN 

lUPPER 

VIS 

ZVSA 

ZVSAMX 

HZVSA 

HBCK 

HTRO 

HSTR 


REAL  Variable  -  Altitude  (km) 

INTEGER  Variable  -  Index  for  haze  profiles 
INTEGER  Variable  -  Index  for  season 

INTEGER  Variable  -  Index  for  upper  atmosphere  profile 
REAL  Variable  -  Sea-level  visible  range  (km) 

REAL  Vector  (Len  =  Unspecified)  -  Altitude  array  for  vertical 
structure  (km) 

REAL  Variable  -  Maximum  altitude  for  which  vertical  structure  is 

valid  (km)  ,  ^ 

REAL  Vector  (Len  =  Unspecified)  -  Extinction  coefficients  for  the 

vertical  structure  (km“^) 

REAL  Variable  -  Altitude  of  the  terrain  (km) 

REAL  Variable  -  Altitude  of  the  tropopause  (km) 

REAL  Variable  -  Altitude  of  the  stratopause  (km) 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX ,  NASMAX ,  NGMAX ,  NVSA ,  NZBNDR ,  NZTROP , 
NZSTRA,NZUPR,  ISMX,MOLMAX 
(MLMAX=140,  NASMAX=15,  NGMAX=15) 
(NVSA=9,  NZBNDR=3,  NZTR0P=9 ,  NZSTRA=17) 
(NZUPR=14,  MOLMAX=26,  ISMX=M0LMAX+8 ) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


XTERP , HLOWT 
MAX 

XTERP , HAZEBD , HLOWT 


Local  Variable  Declarations: 


INTEGER 

REAL 


ITRPO , I , N, NUPPER, IHZ , ITRPl 

HI ; H2 , H3 , H4 , FACV, AHZl , AHZ2 , FACH, HP , HL , HB2 , HTRL , 
HSTL 


COMMON  Blocks : 


/FLAGS/ , /HZDATA/ , /USERDF/ 
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REAL  FUNCTION  HEYNS 


Argument  Declarations: 

TEMP  -  REAL  Variable  -  Temperature  (K) 
INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  ABS, EXP, MAX, MIN 

Local  Variables 

REAL  TC 

COMMON  Blocks :  None 


REAL  FUNCTION  HLOWT 


Argument  Declarations : 

ALT  -  REAL  Variable  -  Altitude  (km) 

HBCK  -  REAL  Variable  -  Terrain  altitude  (km) 

Local  Variable  Declarations: 

REAL  HREF 

COMMON  Blocks :  None 


SUBROUTINE  HOREQU 


Argument  Declarations: 


AZ 

EL 

XLATIT 

TIME 

ALPHA 

DELTA 


REAL  Variable  (Input)  -  Azimuthal  direction  (deg) 
North  is  0.0  degrees 

REAL  Variable  (Input)  -  Elevation  angle  (deg) 

REAL  Variable  (Input)  -  Latitude  (deg) 

REAL  Variable  (Input)  -  Sidereal  time  (deg) 

REAL  Variable  (Output)  -  Equatorial  azimuth  (deg) 
REAL  Variable  (Output)  -  Equatorial  elevation  (deg) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  SIN , COS , ATAN2 , ABS 

Local  Variable  Declarations: 


REAL 


CSA,  SNA,  CSE ,  SNE ,  CSL ,  SNL ,  DUMl ,  DUM2  ,  DUM3  ,  T ,  CST , 
SNT,D 


COMMON  Blocks: 


/CONSTN/ 
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SUBROUTINE  HORIZN 


Argument  Declarations: 


LI 

L2 

LBKGD 

SLRNG 

BETA 

LENP 

PHOS 

RHOS 

BHOS 

SRMAX 

BETMAX 

IBKGD 

lERR 


IPRINT 

NLAT 

NLON 


INTEGER  Variable  (Input)  -  Initial  altitude  index 
INTEGER  Variable  (Input)  -  Final  altitude  index_ 

INTEGER  Variable  (Input)  -  Background  altitude  index 
REAL  Variable  (Input)  -  Slant  range  (km) 

REAL  Variable  (Input)  -  Earth  center  angle  (deg) 

INTEGER  Variable  (Output)  -  Short /long  path  index 
REAL  Variable  (Output)  -  Horizon  elevation  angle  (rad) 

REAL  Variable  (Output)  -  Horizon  slant  range  (km) 

REAL  Variable  (Output)  -  Horizon  earth  center  angle  (rad) 

REAL  Variable  (Output)  -  Maximum  slant  range  (km) 

REAL  Variable  (Output)  -  Maximum  earth  center  angle  (deg) 

INTEGER  Variable  (Input)  -  Background  index 
INTEGER  Variable  (Output)  -  Error  switch 
lERR  =  -1  implies  fatal  errors  in  geometry 
lERR  =  0  implies  no  errors  ^ in  geometry 
INTEGER  Variable  (Input)  -  Print  switch  for  warning  message 
INTEGER  Variable  (Input)  -  Number  of  latitudes 
INTEGER  Variable  (Input)  -  Nxmber  of  longitudes 


PARAMETER  Declarations: 

INTEGER  MLMAX , MLMX2 

PARAMETER  (MLMAX=140,  MLMX2=2*MLMAX) 

INTRINSIC  and  EXTERNAL  Declarations: 


EXTERNAL  RAYPTH 


Local  Variable  Declarations: 

INTEGER  lOSB ( MLMX2 ) , KL , LX , LY , LENO , JBKGD 

real  R ( MLMX2 ) , PHI ( MLMX2 ) , THETA ( MLMX2 ) , RHR , BHR , RHT , 

BHT , HTNGT 

DOUBLE  PRECISION  PHIO 
COMMON  Blocks:  /CONSTN/ 
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SUBROUTINE  HTBLNC 


Argument  Declarations: 


RFDSP 

RFDS 

ABSSLR 

EMSTRM 

HTCLYR 

CHARLN 

SPHLYR 

DENLYR 

DELTIM 

TAIRLP 

TAIRLC 

PRESS? 

PRESS 

WINDTP 

WINDT 

DSWP 

DSW 

DLWP 

DLW 

TLAYER 

ZLAYER 

NLAYER 

IHTFLG 


DUMLYR 

ZSRILR 


REAL  Variable  (Input)  -  Direct  solar  flux  at  T=0  (W/m^) 

REAL  Variable  (Input)  -  Direct  solar  flux  at  T=DELTIM  (W/m^) 

REAL  Variable  (Input)  -  Solar  absorptivity 
REAL  Variable  (Input)  -  Thermal  emissivity 
REAL  Vector  (Len  =  0 : Unspecified)  (Input)  -  Conductance 
coefficient  (W/m^/K) 

REAL  Variable  (Input)  -  Surface  characteristic  length  (m) 

REAL  Vector  (Len  =  0 rUnspecif ied)  (Input)  -  Specific  heat 
(W-sec/gm/K) 

REAL  Vector  (Len  =  0 : Unspecified)  (Input)  -  Density  (gm/m^) 

REAL  Variable  (Input)  -  Time  increment  (dec.  hour) 

-  Local  air  temperature  at  T=0  (K) 

-  Local  air  temperature  at  T=DELTIM  (K) 

-  Local  air  pressure  at  T=0  (mb) 

-  Local  air  pressure  at  T=DELTIM  (mb) 

-  Wind  speed  at  T=0  (m/sec) 

-  Wind  speed  at  T=DELTIM  (m/sec) 

-  Downward  short-wave  flux  at  T=0  (W/ra^) 

-  Downward  short-wave  flux  at  T^DELTIM  (W/m^) 

-  Downward  long-wave  flux  at  T=0  (W/m^) 

Downward  long-wave  flux  at  T=DELTIM  (W/m^) 

Input /Output )  -  Temperatures  in 


REAL  Variable  (Input) 
REAL  Variable  Unput) 
REAL  Variable  (Input) 
REAL  Variable  (Input) 
REAL  Variable  (Input) 
REAL  Variable  (Input) 
REAL  Variable  (Input) 
REAL  Variable  (Input) 
REAL  Variable  (Input) 


REAL  Variable  (Input) 

REAL  Vector  (Len  =  0 rUnspecif ied) 
conducting  subsurface  (K) 

REAL  Vector  (Len  =  0 : Unspecified)  ( Input /Output ) 

INTEGER  Variable  (Input)  -  Number  of  layers 
INTEGER  Variable  (Input)  -  Heat  calculation  index 
IHTFLG  =  0  implies  no  heat  calculations 
IHTFLG  =  1  implies  heat  calculations  with  evaporation 
IHTFLG  =  2  implies  heat  calculations  without  evaporation 
REAL  Array  (Dim  =  2  x  Unspecified)  (Input)  -  Dummy  value 
for  each  layer  moved  outside  of  routine  for  efficiency 
REAL  Variable  (Input)  -  Surface  material  thickness  (m) 


Layer  depth  (m) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  REAL , MIN, ABS , EXP 

EXTERNAL  SRFLUX 


Local  Variable  Declarations: 


INTEGER  L , NTIME , ITM , NCYCLE , NCYCMX , NTIMIN 

REAL  FAC , RFDST , TAIRT , PRESST , WINDTT , DSWT , DLWT , DELTS , 

B , C , DTIMIN , DTEMP , TEMP ( 0 : 2 1 ) , H , TS , ALPH , PERIOD 


COMMON  Blocks: 


/CONSTN/ 
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SUBROUTINE  HYDROM 


« 


Argiunent  Declarations: 


L 

ICLOUD 

ICLDRN 

EXTCLD 

EXTICE 

ICIRUS 

HCIRBS 

DELCIR 

CIRICE 

EXTCIR 

IRAIN 

EXTRN 

I  SNOW 

EXTSN 

TEMP 

NLAT 

NLON 


INTEGER  Variable  (Input)  -  Altitude  index 
INTEGER  Variable  (Input)  -  Cloud  index 
INTEGER  Variable  (Input)  -  Cloud  and  rain  index 

REAL  Variable  (Output)  -  Extinction  coefficient  in  cloud  (km  ) 
REAL  Variable  (Output)  -  Extinction  coefficient  for  ice  clouds 
(km'M  ,  .  ^ 

INTEGER  Variable  (Input)  -  Cirrus  cloud  index 
REAL  Variable  (Input)  -  Cirrus  base  altitude  ()ati) 

REAL  Variable  (Input)  -  Cirrus  thickness  (km) 

REAL  Variable  (Input)  -  Cirrus  equivalent  liquid  water  content 

(gm/m^)  ,  .  ^  ^ 

REAL  Variable  (Input /Output)  -  Extinction  coefficient  for  cirrus 

(km'^) 

INTEGER  Variable  (Input)  -  Rain  index 

REAL  Variable  (Output)  -  Extinction  coefficient  for  rain  (km  ) 
INTEGER  Variable  (Input)  -  Snow  type  index 

REAL  Variable  (Output)  -  Extinction  coefficient  for  snow  (km  ) 
REAL  Variable  (Input)  -  Temperature  (K) 

INTEGER  Variable  (Input)  -  Number  of  latitudes 
INTEGER  Variable  (Input)  -  Number  of  longitudes 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX , ISMX , NWLAER , NWLCLD , NANG , MAXLAT , MAXLON , 
NGMAX,MOLMAX 

(MLMAX=140,  MOLMAX=26,  ISMX=M0LMAX+8 ) 
(NWLAER=47,  NWLCLD=79,  NANG=65) 

(MAXLAT=3,  MAXLON=l,  NGMAX=15) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


RAINEX, SNOWEX, SATUR, XTERP , CIREX 
MIN 

RAINEX, SNOWEX, SATUR, CLDRBD, XTERP, PROFAC , CIREX , 
ARSABD , ARSLBD , ARSXBD 


Local  Variable  Declarations: 


INTEGER 

REAL 


I, ICLAER, IC,KTPW,KTPPW,KTPI,KTPPI,KK, LL, ITRPO , 
ITYPE 

FACTW,FACTI 


COMMON  Blocks: 


/AEROSL/ , /AERSCC/ , /AERSLA/ , /AERSLX/ , / CLDRN/  , 
/CLDUSR/, /INITAL/ 


INTEGER  FUNCTION  IBKCNV 

Argument  Declarations: 

ISCENE  -  INTEGER  Variable  -  Ecosystem  index 
Local  Variable  Declarations:  None 
INTRINSIC  and  EXTERNAL  Declarations: 

EXTERNAL  ECOSBD 

COMMON  Blocks:  /ECOCNV/ 
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INTEGER  FUNCTION  IBNSRC 


Argument  Declarations: 

XO  -  REAL  Variable  ~  Value  of  X  for  which  location  is  to  be  found 

X  -  REAL  Vector  (Len  =  Unspecified)  -  X-array  (must  be  monotonic  and 

either  increasing  or  decreasing) 

N  -  INTEGER  Variable  -  DIMENSION  of  X-array 

KEY  -  INTEGER  Variable  -  Position  in  X-array  for  which  search  for 

adjacent  points  to  the  XO -value  starts 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  MAX, MIN, REAL, ABS, INT 

Local  Variable  Declarations: 

INTEGER  I, M, Ml, M2 

REAL  FAC 

COMMON  Blocks:  None 


INTEGER  FUNCTION  IDAERO 

Argument  Declarations: 

IBKGD  -  INTEGER  Variable  -  Terrain  background  index 
HBCK  -  REAL  Variable  -  Terrain  altitude  (km) 

Local  Variable  Declarations: 

INTEGER  I AER (-4:63) 

COMMON  Blocks:  None 


INTEGER  FUNCTION  IGTINT 


Argument  Declarations: 

VARIAB  -  CHARACTER*!*)  Variable  -  Input  string 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

INTRINSIC  INDEX , LEN 

EXTERNAL  lOERR 

Local  Variable  Declarations: 

INTEGER  ICNT , lOS , IDFALT 

CHARACTER* 5  FMTSTR 

COMMON  Blocks :  None 


SUBROUTINE  IGTVEC 


Arg\iment  Declarations: 

VARIAB  -  CHARACTER* (* )  Variable  (Input)  -  Input  string 
ISTR  -  INTEGER  Vector  (Len  =  N)  (Output)  -  Vector  string 
N  -  INTEGER  Variable  (Output)  -  Length  of  vector  string 

NMAX  -  INTEGER  Variable  (Input)  -  Maximum  length  of  vector  string 

INTRINSIC  and  EXTERNAL  Declarations: 

INTEGER  LENSTR 

CHARACTER* 7 2  lOERR 

EXTERNAL  lOERR, LENSTR 

Local  Variable  Declarations: 

INTEGER  I, IP, IM, LNMAX, ISW, lOS, IDFALT 

CHARACTER*  5  FMTSTR 

COMMON  Blocks :  None 


COMPLEX  FUNCTION  INDEXI 


Argument  Declarations: 

WL  -  REAL  Variable  -  Wavelength  (lam) 

TEMP  -  REAL  Variable  -  Temperature  (K) 

INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


XTERP 

CMPLX 

XTERP , ICEBD 


Local  Variable  Declarations: 

INTEGER  I , ITRPO 

real  BMW, EMWT ( 4 ) , CAYW, CAYWT ( 4 ) 


COMMON  Blocks : 


/ICEREF/ 
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COMPLEX  FUNCTION  INDEXW 


Argiiment  Declarations : 

WL  -  REAL  Variable  -  Wavelength  ()im) 

TEMP  -  REAL  Variable  -  Temperature  (K) 

PARAMETER  Declarations: 

INTEGER  NWLWTR , NFRQ 

PARAMETER  (NWLWTR=169,  NFRQ=28) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

INTRINSIC  CMPLX , SQRT 

EXTERNAL  XTERP , WTRBD 

Local  Variable  Declarations: 

INTEGER  ITRPO 

REAL  EMW , CATO , DIELR , DIELI , ES , RLS , EW , EINF , V , FREQ 

COMMON  Blocks:  /INDXWR/ 


SUBROUTINE  INDXBK 


Argxment  Declarations: 


IBKGD 

MONTH 

HOUR 

XLAT 

XLON 

TAIR 

CLDCVR 


ISCENE 

TMIDN 

TNOON 

TPROF 

FRSNW 

FRICE 

FRWTR 


INTEGER  Variable  (Input)  -  Scene /Background  index 
INTEGER  Variable  (Input)  -  Month  index  (1  =  Jan) 

REAL  Variable  (Input)  -  Time  of  day  (LST)  (dec.  hr.) 

REAL  Variable  (Input)  -  Latitude  (deg.) 

REAL  Variable  (Input)  -  Longitude  (deg.) 

REAL  Variable  ( Input /Output )  -  Surface  air  temperature  (K) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Cloud  cover 
0  -  Total 

1  -  Low  etage 

2  -  Middle  etage 

3  -  High  etage 

INTEGER  Variable  (Output)  -  Scene  index 

REAL  Variable  (Output)  -  Air  temperature  at  midnight  (K) 
(Output)  -  Air  temperature  at  noon  (K) 
(Input)  -  Profile  temperature  (K) 

(Output)  -  Percentage  snow  (%) 

(Output)  -  Percentage  ice  {%) 

(Output)  ~  Percentage  water  (%) 


REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 


NSCEN 

(NSCEN=35) 


INTRINSIC  and  EXTERNAL  Declarations: 

EXTERNAL  GBLBCK 

Local  Variable  Declarations: 

REAL  ALTIT 

COMMON  Blocks :  None 


186 


INTEGER  FUNCTION  INDXSC 


Argument  Declarations : 

ISCENE  -  INTEGER  Variable  -  Scene /Background  index 
Local  Variable  Declarations:  None 
COMMON  Blocks :  None 


SUBROUTINE  INICPL 


Argiiment  Declarations: 

NPTS  -  INTEGER  Variable  (Output)  -  Number  of  points  in  exponential  sum  fit 
NMOLEC  -  INTEGER  Variable  (Input)  -  Number  of  molecules 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX , NBAND , I SMX , NANG , MAXLAT , MAXLON , NGMAX , 
NAZMAX , NASMAX , NZSMAX , NVSMAX , MOLMAX 
(MLMAX=140,  NBAND=16,  NANG=65) 

(MOLMAX=26,  ISMX=MOLMAX+8 ) 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MAXLAT=3,  MAXLON=l,  NVSMAX=20) 


INTRINSIC  and  EXTERNAL  Declarations: 


real  beta, BETAU 

INTRINSIC  SIN, ABS, MAX, MIN 

EXTERNAL  ESFIT , UDLAY , BETA, BETAU, SRTLAY 


Local  Variable  Declarations: 


INTEGER 

REAL 


COMMON  Blocks: 


I,K,L,LM,LP,KK,LL 

OPDPTHdSMX)  ,OPTI,ALBI,ALPHAD(ISMX)  ,B,BUS,BUL, 
DZ , PS , TS , PO , TO , EXPDEP, XMUOS , XMUOL, SCTDEP 

/ARSLSC/ , /CONSTN/ , /FLAGS/ , /HEADER/ , /INITAL/ , 
/LYRSTO/ , /MSPARM/ , /PRBNDA/ , /PRBNDB/ 


¥ 
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SUBROUTINE  INIGEO 


Argument  Declarations: 


LI 

L2 

SLRNG 

BETA 

PHIl 

PHI2 

LENP 


RHOS 

BROS 

PROS 

SRMAX 

BETMAX 

P 

VAR 

VARO 

JTPGM 


I  ERR 


INTEGER  Variable  (Input)  -  Indicates  location  in  profile 
array  of  initial  point  of  path 
INTEGER  Variable  (Input)  -  Indicates  location  in  profile 
array  of  final  point  of  path 
REAL  Variable  (Input)  -  Slant  range  (km) 

REAL  Variable  (Input)  -  Earth  center  angle  (deg) 

REAL  Variable  (Input)  -  Elevation  angle  at  point  LI  (rad) 

REAL  Variable  (Input)  -  Elevation  angle  at  point  L2  (rad) 

INTEGER  Variable  (Input)  -  Index  for  the  type  of  path  in  case 
of  any  ambiguity 

LENP  =  0  implies  shorter  path 
LENP  =  1  implies  longer  path 

REAL  Variable  (Input)  -  Slant  range  from  Ll  to  tangent  point  at 
L2  (km) 

REAL  Variable  (Input)  -  Earth-center  angle  from  Ll  to  tangent 
point  at  L2  (rad) 

REAL' Variable  (Input)  -  Elevation  angle  at  Ll  for  L2  to  be  at 
the  tangent  point  (rad) 

REAL  Variable  (Input)  -  Maximum  slant  range  between  Ll  and 
L2  (km) 

REAL  Variable  (Input)  -  Maximum  earth  center  angle 
between  Ll  and  L2  (deg) 

DOUBLE  PRECISION  Vector  (Len  =  Unspecified)  (Output)  -  Source 
elevation  angles  for  ray  path.  Three  values  correspond  to  an 
upper  limit,  a  lower  limit,  and  the  best  estimate  value  (rad) 
REAL  Vector  (Len  =  Unspecified)  (Output)  -  Either  slant  or  earth 
center  angle  or  source  elevation  angle  corresponding  to  the 
three  values  of  P  (km  or  deg  or  rad) 

REAL  Variable  (Output)  -  Either  slant  or  earth  center  angle 
corresponding  to  the  input  value  (km  or  deg) 

INTEGER  Variable  (Input)  -  Index  for  type  of  geometry 
JTPGM  =  1  implies  the  slant  range  is  defined 
JTPGM  =  2  implies  the  earth  center  angle  is  defined 
JTPGM  =  3  implies  the  source  elevation  angle  is  defined 
JTPGM  =  4  implies  the  observer  elevation  angle  is  defined 
INTEGER  Variable  (Output)  -  Error  switch 

lERR  =  -1  implies  fatal  errors  in  geometry 
lERR  -  0  implies  no  errors  in  geometry 

lERR  =  1  implies  warning  in  geometry 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX , ISMX , MAXLAT , MAXLON , NGMAX , NAZMAX , NASMAX , 
NZSMAX ,  NVSMAX ,  MOLMAX 
{MLMAX=140,  MOLMAX=26,  ISMX=M0LMAX+8 ) 
{NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MAXLAT=3,  MAXL0N=1,  NVSMAX=20) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  COS , SIN , ACOS , ASIN , ABS , ATAN2 , MAX , MIN , DBLE , REAL , 

SIGN 


Local  Variable  Declarations: 


INTEGER  KK,LL 

REAL  DELH , VARO , G , RHl , RH2 , FAC ( 3 ) , XMHAVl , XMHAV2 , 

XMHAVB , ATMFAC ( MAXLAT , MAXLON ) 

DOUBLE  PRECISION  R1 , R2 , DR2 , XR, MHPl , MHPB , PMIN, PMAX 


COMMON  Blocks: 


/CONSTN/ , /HEADER/ , /INITAL/ 


SUBROUTINE  INITL 


Arguitient  Declarations: 


LENP 

ISHINE 

HXTRA 

NXTRA 

NXMAX 

HEADNG 

FILERT 

IFLTR 

ISMARY 

ISLPOS 


INTEGER  Vector  (Len  =  Unspecified)  (Output)  -  Index  for  short  or 
long  path.  Only  needed  when  an  ambiguity  exists. 

INTEGER  Vector  (Len  =  Unspecified)  (Output)  -  Sky/earthshine  index 
REAL  Vector  (Len  =  Unspecified)  (Output)  -  Extra  altitudes  for 
profile  grid  (km) 

INTEGER  Variable  (Output)  -  Number  of  extra  altitudes 

INTEGER  Variable  (Input)  -  Dimension  of  HXTRA 

CHARACTER* (* )  Variable  (Output)  -  User-defined  heading 

CHARACTER* (* )  Variable  (Input)  -  File  root 

INTEGER  Variable  (Input)  -  Filter  index 

INTEGER  Variable  (Output)  -  Summary  index 

INTEGER  Variable  (Output)  -  Solar/lunar  position  index 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX , I SMX , NAZMAX , NASMAX , NGMAX , NZ  SMAX , NANTMX , 
MAXLAT , MAXLON , NL , NMATL , NVSMAX ,  NVSA ,  MOLMAX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  MOLMAX=26,  ISMX=MOLMAX+8 ,  NVSA=9) 
(NANTMX=25) 

(MAXLAT=3,  MAXLON=l,  NVSMAX=20) 

(NL=50) 

(NMATL=28) 


INTRINSIC  and  EXTERNAL  Declarations; 


INTEGER 

REAL 

CHARACTER* 1 
CHARACTER* 3 
CHARACTER* 7 2 
INTRINSIC 

EXTERNAL 


MDLATM 

GETVAR, EXOTMP 
UPCASE 
LWCASE 
lOERR 

MIN , REAL , SIGN , ATAN2 , ACOS , COS , SIN , TAN , MOD , AINT , 
ABS,MAX, INT 

DFLT8 , GETVAR, GETVEC , SETFLG, ISRAEL , DEVCBD, VSA, 
GETSLR,  RDLINE , GETATM, GETCLD , GETBCK , MDLATM, 
CALEND , USRDEF , GETPOS , PARSE , INPTBD , BEAUFT , 
BINFIL , MIEINP , DEFALT , EXOATM , STGEOM, CIRRUS , 
ZROHDR, UPCASE, LWCASE , lOERR, GBLBCK, GETASP , 
DFLT2 , FILOPN, FILRT, ATMSBD, BKGDBD , GETEXO , 
EXOTMP 


Local  Variable  Declarations: 


INTEGER 


CEXO  INTEGER 
REAL 


CEXO  REAL 
CEXO  LOGICAL 

CHARACTER*! 
CHARACTER* 20 
CHARACTER* 50 
CHARACTER* 80 
CHARACTER*255 


I , K , L , M , ITYPE , NVAR , IDAYX , NXTRAP , lOS , I SUB , 

ISWINP ( 17 ) , IXOTMP , KK , LL , NTX , IZERO , ITYPO , 

ISCENE , JSHINE , NXTRP , IT , Ml , M2 
KP, ISNSPT 

HCLDBS ,  DELCLD ,  DYEAR ,  TINF 0  ,  TDUM  ( 2 )  ,  TMIDN ,  TNOON , 

FRSNWP , FRICEP , TAIRP , CLDCVP (0:3) , HBK , WINDO , TAIRO , 
ABSLAT , FACLAT , FRWTRP 
F,FBAR 
FLEXO 
DOT 

VRDATA(14) 

VARSUB 

DUMMY , FILENM ( 17 ) 

VARIAB 


COMMON  Blocks: 


/ANTECD/ , /ATMDAT/ , /BACKGD/ , /CONSTN/ , /DEVICE/ , /FLAGS/ , 
/HEADER/ , /INITAL/ , /INPTDT/ , /OUTPUT/ , /VSADTA/ 
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SUBROUTINE  INTEG 


Argument  Declarations: 


V 

FLTR 

BW 

BWL 

NAZ 

NASPCT 

NAZSH 

NSRCE 

NBKGD 

BKSUMV 

SIGMEP 

TAUSCP 

RADSLP 

RADLNP 

RADPTH 

DRADP 

RDSLSP 

TAULR 

IGEOM 


REAL  Variable  (Input)  -  Wavenumber  (cm'^) 

REAL  Variable  (Input)  -  Filter  weighting  factor 
REAL  Variable  ( Input /Output )  -  Band  width  (cm‘^) 

REAL  Variable  ( Input /Output )  -  Band  width  (jim) 

INTEGER  Variable  (Input)  -  Number  of  observer/ source  azimuths 

INTEGER  Variable  (Input)  -  Number  of  earth/ skyshine  elevation 

angles 

INTEGER  Variable  (Input)  -  Number  of  earth/ skyshine  azimuth  angles 
INTEGER  Variable  (Input)  -  Location  of  source  in  ray 

INTEGER  Variable  (Input)  -  Location  of  background  in  ray 

REAL  Array  (Dim  =  6  x  NMATL  x  Unspecified)  ( Input /Output )  - 
Spectral  background  radiance  for  each  material  (W/cm^/sr/cm“^) 
REAL  Array  (Dim  =  NAZMAX  x  Unspecified)  ( Input /Output )  - 
Scintillation  along  path 

REAL  Array  (Dim  =  NAZMAX  x  Unspecified)  (Input /Output )  - 
In-scattered  transmittance  along  path 
REAL  Array  (Dim  =  NAZMAX  x  Unspecified)  ( Input /Output )  - 
Solar  irradiance  along  path  (W/cm^/cm‘^) 

REAL  Array  (Dim  =  NAZMAX  x  Unspecified)  ( Input /Output )  - 
Lunar  irradiance  along  path  (W/cm^/cm'^) 

REAL  Array  (Dim  =  NAZMAX  x  MLMX2  x  Unspecified) 

(Input /Output)  -  Emitted  path  radiance  along  path  (W/cm^/sr/cm“^) 
REAL  Array  (Dim  =  NAZMAX  x  Unspecified)  ( Input /Output )  - 
Emitted  path  radiance  along  path  (W/cm^/sr/cm”^ ) 

REAL  Array  (Dim  =  NAZMAX  x  MLMX2  x  Unspecified) 

( Input /Output )  -  Scattered  radiance  along  path  (W/cm^/sr/cm"^) 
REAL  Array  (Dim  =  NAZMAX  x  Unspecified)  ( Input /Output )  - 
Transmittance  along  path 
INTEGER  Variable  (Input)  -  Geometry  index 


PARAMETER  Declarations : 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


NAZMAX , NASMAX , MLMAX , MLMX2 , NZ  SMAX , NMATL , 
MAXLAT , MAXLON , NGMAX 

(NAZMAX=30,  NASMAX=15,  NZSMAX=4,  NGMAX=15) 
(MLMAX=140,  MLMX2=2*MLMAX) 

(NMATL=28,  MAXLAT=3,  MAXL0N=1) 


Local  Variable  Declarations: 


INTEGER  K , M , MM , LB 

REAL  DBW 


COMMON  Blocks: 


/BCKDAT/ , /INTSTO/ 
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SUBROUTINE  INTR2D 


Argument  Declarations: 


XO 

YO 

X 

NX 

NXMAX 

Y 

NY 

FAC 


REAL  Variable 
REAL  Variable 


REAL  Vector  {Len  =  Unspec 
INTEGER  Variable  (Input) 
INTEGER  Variable  (Input) 
REAL  Vector  (Len  =  Unspec 
INTEGER  Variable  (Input) 
REAL  Array  (Dim  =  NXMAX  x 
weights 


(Input)  -  X-component  of  point  to  be  evaluated 
(Input)  -  Y-component  of  point  to  be  evaluated 
ified)  (Input)  -  X-component  of  grid 

-  Number  of  X  grid  points 

-  Maximum  number  of  X  grid  points 
ified)  (Input)  -  Y-component  of  grid 

-  Number  of  Y  grid  points 
Unspecified)  (Output)  -  Interpolation 


INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  MAX,MIN,ABS 

Local  Variable  Declarations: 


INTEGER 

REAL 

COMMON  Blocks:  None 


I, J,IX,IXP,IY,IYP 
FX,FY 


CHARACTER*72  FUNCTION  lOERR 


Argument  Declarations: 

lOS  -  INTEGER  Variable  -  Value  returned  by  lOSTAT 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER*  7  2  GERROR 

CLAH  EXTERNAL  IOSTAT_MSG 

EXTERNAL  GERROR 

Local  Variable  Declarations: 

CVAX  CHARACTER* 4 8 

CLAH  CHARACTER* 15 2 

CIBM  INTEGER* 2 

CIBM  INTEGER 

COMMON  Blocks:  None 


CHERRV(68) 

MESSAG 

12(2) 

I 
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SUBROUTINE  ISRAEL 


Argument  Declarations: 


ISMX 

MA 

MP 

MT 

MC 

NLAT 

NLON 


INTEGER  Variable  (Input)  -  First  DIMENSION  of  MC 
INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  ( Input /Output )  - 
Model  atmosphere  index 

INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  ( Input /Output )  - 
Pressure  profile  index 

INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  ( Input /Output )  - 
Temperature  profile  index 
INTEGER  Array  (Dim  =  ISMX  x  MAXLAT  x  Unspecified) 

( Input /Output )  -  Molecular  concentrations  profile  index 
INTEGER  Variable  (Input)  -  Number  of  latitudes 
INTEGER  Variable  (Input)  -  Number  of  longitudes 


PARAMETER  Declarations: 


INTEGER  NGMAX , MAXLAT 

PARAMETER  (NGMAX=15,  MAXLAT=3) 


Local  Variable  Declarations: 


INTEGER  K,KK,LL 


COMMON  Blocks: 


/FLAGS/ 


INTEGER  FUNCTION  ISTAER 


Argument  Declarations: 

lAEROl  -  INTEGER  Variable  -  Boundary  layer  aerosol  type 
IAER02  -  INTEGER  Variable  -  Stratospheric  aerosol  type 
ITRPAU  -  INTEGER  Variable  -  Tropopause  index 

ITRPAU  =  0  implies  that  Z  is  below  the  tropopause 

ITRPAU  =  1  implies  that  Z  is  above  the  tropopause 

ISTPAU  -  INTEGER  Variable  ~  Stratopause  index 

ISTPAU  =  0  implies  that  Z  is  below  the  stratopause 

ISTPAU  =  1  implies  that  Z  is  above  the  stratopause 

Z  -  REAL  Variable  -  Altitude  (km) 

HB  -  REAL  Variable  -  Terrain  altitude  (km) 

IHAZE  -  INTEGER  Variable  -  Haze  profile  index 

PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 


MLMAX , NASMAX , I SMX , MOLMAX 
(MLMAX=140,  NASMAX=15) 

( MOLMAX=  2  6,  I SMX=MOLMAX+  8 ) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL  HLOWT 

EXTERNAL  HLOWT 

Local  Variable  Declarations: 


INTEGER 


L, ILYR 


COMMON  Blocks: 


/USERDF/ 
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Argument  Declarations:  None 
PARAMETER  Declarations: 


SUBROUTINE  KDISTR 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


NAZMAX , MLMAX , I SMX , MAXLAT ,  MAXLON , NGMAX , NASMAX , 
NZSMAX , NVSMAX , MOLMAX , MLIDMX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  MOLMAX=26,  ISMX=MOLMAX+8 ) 
(MAXLAT=3,  MAXLON=l,  NVSMAX=20,  MLIDMX=45) 


Local  Variable  Declarations: 


INTEGER  J , L , KK , LL 

real  SCATM,EXTNCM 


COMMON  Blocks :  /BCKDAT/ , /HEADER/ , /KDISDT/ , /MOLECP/ , /PRBNDA/ , 

/PRBNDB/ 


SUBROUTINE  LAYLW 

Argument  Declarations: 

X  -  REAL  Array  (Dim  =  10  x  Unspecified)  { Input /Output )  - 

Optical  path  or  path-weighted  temperature  matrix 

Local  Variable  Declarations: 

INTEGER  I , J 

COMMON  Blocks:  None 


SUBROUTINE  LCTRIM 

Argument  Declarations : 

CHRSTR  -  CHARACTER* (* )  Variable  (Input /Output)  -  CHARACTER  String 
INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  LEN 

Local  Variable  Declarations : 

INTEGER  I,K,ISTART,IMAXLN 

COMMON  Blocks :  None 
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INTEGER  FUNCTION  LENSTR 


Argument  Declarations: 

CHRSTR  -  CHARACTER* (* )  Variable  -  Input  CHARACTER  string 
INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  LEN 

Local  Variable  Declarations : 

INTEGER  I , IMXLEN 

COMMON  Blocks :  None 


CHARACTER* ( * )  FUNCTION  LWCASE 


Argument  Declarations: 

STRING  -  CHARACTER* (* )  Variable  -  Input  string 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  LEN, INDEX 

Local  Variable  Declarations: 

INTEGER  I , LOC 

CHARACTER*  2  6  UPPER , LOWER 

COMMON  Blocks :  None 


SUBROUTINE  LYRINT 


Argument  Declarations : 


TSRF 

TLAYER 

TSSL 

Z LAYER 

NLAYER 

SPHEAT 

DENSTY 

HTCOND 

ZHLYR 


REAL  Variable  (Input)  ~  Initial  surface  temperature  (K) 

REAL  Vector  (Len  =  0 :Unspecif ied)  (Input /Output )  -  Temperatures  in 
conducting  subsurface  (K) 

REAL  Variable  (Input)  ^  Initial  sub-surface  temperature  (K) 

REAL  Vector  (Len  =  0 :Unspecif ied)  ( Input /Output )  -  Layer  depth  (m) 
INTEGER  Variable  (Input)  -  Number  of  layers 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Specific  heat  (W-sec/gm/K) 

(Input)  -  Density  igm/w?) 

( Input ) 


REAL  Vector  (Len  =  Unspecified) 
REAL  Vector  (Len  =  Unspecified) 
(W/m^/K) 

REAL  Vector  (Len  =  Unspecified) 


-  Conductance  coefficient 


(Input)  -  Material  layer 


INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  SQRT , EXP , REAL , COS 

Local  Variable  Declarations: 


INTEGER 

REAL 


L,LS 

DAMPD,  PERIOD,  DZ 


COMMON  Blocks: 


/CONSTN/ 


194 


SUBROUTINE  MARINE 


Argiiment  Declarations: 

VIS  -  REAL  Variable  (Output)  -  Meteorological  range  (km) 

WIND  -  REAL  Variable  (Input)  -  Current  wind  speed  (m/sec) 

WHH  -  REAL  Variable  (Input)  -  24-hour  average  wind  speed  (ra/sec) 

ICSTL  -  INTEGER  Variable  (Input)  -  Air  mass  character  index 

ICSTL  =  1  implies  open  ocean 

ICSTL  =  10  implies  strong  continental  influence 
Values  in  between  represent  varying  degrees  of  continental 
influence.  ,  .  , 

BEXT  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Extinction  coefficient 

(km*^)  .  .  , 

BABS  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Absorption  coefficient 

(km-^) 

RH  -  REAL  Variable  (Input)  -  Relative  humidity 

PARAMETER  Declarations: 

INTEGER  NWLAER , NWLCLD , NANG 

PARAMETER  (NWLAER=47,  NWLCLD=79,  NANG=65) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL, MAX, MIN 

EXTERNAL  MARNBD , PROFAC , ARSABD , ARSLBD ,  ARSXBD 


Local  Variable  Declarations: 


INTEGER 

REAL 


COMMON  Blocks: 


I, J,K, JRH, JRHP 

A(3) , RISC, WS,WH, FAC, TOTAL, QE,EXT5 5, C,TXV,TAV,F, 
RHX 

/AEROSL/ , /AERSLA/ , /AERSLX/ , /CONSTN/ , /NAVMAR/ 


INTEGER  FUNCTION  MDLATM 


Argument  Declarations: 

ITYPE  -  INTEGER  Variable  -  Latitude  index 
ISEASN  -  INTEGER  Variable  -  Season  index 

Local  Variable  Declarations: 

INTEGER  LATIT , KSEASN 

COMMON  Blocks :  None 
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SUBROUTINE  MIE 


Argument  Declarations: 


RADIUS 

WL 

XNP 

RNB 

NSANGL 

QABSP 

QSCAT 

GQSCAT 


REAL  Variable  (Input)  -  Particle  radius 
REAL  Variable  (Input)  -  Wavelength  (pm) 


(pm) 


COMPLEX  Variable  (Input) 
COMPLEX  Variable  (Input) 
medium 

INTEGER  Variable  (Input) 
REAL  Variable  (Output)  - 
(particles  cm'^)  ) 


-  Complex  index  of  refraction 

-  Complex  index  of  refraction  of  the 

-  Number  of  scattering  angles 
Absorption  coefficient  (km’^  per 


REAL  Variable  (Output)  -  Absorption  coefficient  (km"^  per 
(particles  cm“^)  ) 

REAL  Variable  (Output)  -  Asymmetry  coefficient  times  QSCAT 


PARAMETER  Declarations : 


Por  extremely  large  particles,  NMAX  may  have  to  be  increased. 

If  Error  No.  86  is  encountered,  then  increase  NMAX  accordingly. 


INTEGER  NXMI E , NMAX 

PARAMETER  (NXMIE=101,  NMAX=20000) 

INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

INTRINSIC 

EXTERNAL 


NCYCLE 

CMPLX , INT , REAL , DBLE , ABS , MAX , CONJG , COS , S IN 
NCYCLE 


Local  Variable  Declarations: 


INTEGER  J , N , NMX , NSTOP , N1 , N2 , Ml , M2 , M3 , NS2 , J J 

REAL  CHI (3) ,FN,TAUI,P,T,X,DUM,QEXT 

DOUBLE  PRECISION  PSI(3) 

COMPLEX  D(NMAX) , Y, XI ( 3 ) , AN ( 2 ) , BN ( 2 ) , REFREL 


COMMON  Blocks: 


/CONSTN/, /MIECOT/ 
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SUBROUTINE  MIEINP 


Argument  Declarations; 

IMATRL  -  INTEGER  Variable  (Input)  -  Material  index 


PARAMETER  Declarations: 

INTEGER  NWLMX , MOLMAX 

PARAMETER  (NWLMX=100,  MOLMAX=26) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

CHARACTER*! 
CHARACTER* 3 
CHARACTER* 7 2 
INTRINSIC 
EXTERNAL 


IGTINT 

GETVAR 

UPCASE 

LWCASE 

lOERR 

CMPLX 

GETVAR, IGTINT , GETVEC , RDLINE , PARSE , UPCASE , 
LWCASE, lOERR, DEVCBD 


Local  Variable  Declarations : 


INTEGER 

REAL 

CHARACTER*! 
CHARACTER* 20 
CHARACTER* 80 
CHARACTER* 2 55 


I, J,N, IOS,NVAR, ICOLO, ICOL40,NVAR8,NVAR1,NVAR2, 
NVAR3,NVAR50 
DUM(4) ,XNR(3) ,XNI (3) 

D0T,MTYPE(3) 

VRDATA ( 8 ) 

TITLE, DUMMY 
VARIAB 


COMMON  Blocks: 


/DEVICE/, /MATERL/ 


¥ 
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SUBROUTINE  MIEPHS 


Argument  Declarations: 


WL 

QABSP 

QSCAT 

G 

THETA 

PHASE 

NANG 

TEMP 

IMATRL 


REAL  Variable  (Input)  -  Wavelength  (}im) 

REAL  Variable  (Output)  -  Absorption  coefficient  (km'^  per 
(particles  cm'^)  ) 

REAL  Variable  (Output)  -  Absorption  coefficient  (km'^  per 
(particles  cm'^)  ) 

REAL  Variable  (Output)  -  Asymmetry  coefficient 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Scattering  angles  (deg) 
REAL  Array  (Dim  =  4  x  Unspecified)  (Output)  -  Phase  function 
INTEGER  Variable  (Input)  -  Number  of  scattering  angles 
REAL  Variable  (Input)  -  Temperature  (K) 

INTEGER  Variable  (Input)  -  Particle  index 


PARAMETER  Declarations : 


INTEGER  NXMIE 

PARAMETER  (NXMIE=101) 

INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

COMPLEX 

INTRINSIC 

EXTERNAL 


DNDR 

INDEXI , INDEXW, EMTREF 

CMPLX , REAL , COS , LOGl 0 , MAX , MIN , ABS , DPROD , AIMAG 
DNDR, COAT , PROFAC , INDEXI , INDEXW, EMTREF , MIE 


Local  Variable  Declarations: 


INTEGER  I, J,K,KEY,KEYP, ISWTCH(5) ,NINCL1 

REAL  RADCOR, QABSI , QSCATI , GI , AREA, SUM, CHKA, DELR, RADN, 

RADNP,WT,DRL,FAC,PCTP(5) ,X 
COMPLEX  RNB , XNJ ( 3 ) , XNP ( 2 ) 


COMMON  Blocks: 


/CONSTN/ , /MATERL/ , /MIECOT/ 


SUBROUTINE  MUSCAT 


Argument  Declarations : 


L 

RTH 

RSL 

TAU 

DRKM 

PHI 

IZL 

PTHFAC 

NPTH 


INTEGER  Variable  (Input)  -  Altitude  index 

REAL  Variable  (Output)  -  Scattered  thermal  radiance  (W/sr/cm /cm'  ) 
REAL  Variable  (Output)  -  Scattered  solar  radiance  (W/sr/cmVcm'^) 
DOUBLE  PRECISION  Variable  (Input)  -  Transmittance 

REAL  Variable  (Input)  -  Incremental  path  lengths  along  raypath  (km) 
REAL  Variable  (Input)  -  Elevation  angle  (deg) 

INTEGER  Variable  (Input)  -  Altitude  layer  index 
REAL  Array  (Dim  =  MAXLAT  x  Unspecified)  -  Proportionality 
factor  for  multiple  atmospheres 
INTEGER  Array  (Dim  =  2  x  Unspecified)  (Input)  -  Limits  for 
non-zero  elements  of  PTHFAC 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 


MLMAX , NBAND , NANG , MAXLAT , MAXLON 
(MLMAX=140,  NBAND=16,  NANG=65) 
(MAXLAT=3,  MAXL0N=1) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


RADTRY,BETAU 

ABS , SIN, DPROD , DBLE 

BETAU,RADTRy 


Local  Variable  Declarations: 


INTEGER  KK,LL 

real  XMU,BU,FU,SCT0T,ASyMT,HMT(2) ,HPT(2) 

DOUBLE  PRECISION  DELTAU, SCTl , SCT2 , SCT3 , SCT4 , DDRKM, DUM, TAUP 

COMMON  Blocks :  /ARSLSC/ , /CONSTN/ , /LYRSTO/ 


SUBROUTINE  MODBCK 


Argument  Declarations: 

FRACT  -  REAL  Vector  (Len  =  Unspecified)  (Input /Output)  -  Fraction  of 
scene  materials 

INDEXB  -  INTEGER  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Index  of 

scene  materials 

KMATL  -  INTEGER  Variable  (Input /Output)  -  Number  of  materials  in  scene 
SNOW  -  REAL  Variable  (Input)  -  Percent  of  scene  that  is  snow  (%) 

ICE  -  REAL  Variable  (Input)  -  Percent  of  scene  that  is  ice  (%) 

WATER  -  REAL  Variable  (Input)  -  Percent  of  scene  that  is  water  (%) 

TEMP  -  REAL  Variable  (Input)  -  Air  temperature  (K) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  MAX, MIN 

Local  Variable  Declarations: 

INTEGER  K, IS, IX (12) 

real  SNW, FX ( 12 ) , FRDUM , XICE , XWTR 

COMMON  Blocks:  None 
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INTEGER  FUNCTION  MONTH 


Argument  Declarations: 

CHVAR  -  CHARACTER* (* )  Variable  -  Month  identifier 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER*!  UPCASE 

EXTERNAL  LCTRIM, UPCASE 

Local  Variable  Declarations: 

INTEGER  I , J 

CHARACTER*  3  CHMNTH (12,2), CHVARP 

COMMON  Blocks:  None 


PROGRAM  MOSART 


PARAMETER  Declarations : 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NGMAX , NXMAX , NAZMAX , NASMAX , MAXLAT , MAXLON , NVSMAX , 
ISMX , MLMAX , NZSMAX , MOLMAX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
{MLMAX=140,  NXMAX=100) 

(MOLMAX=26,  ISMX=M0LMAX+8 ) 

(MAXLAT=3,  MAXLON=l,  NVSMAX=20) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

CHARACTER* 7 2 
EXTERNAL 


SLPOS 

lOERR 

CNSTNT , DEVCBD , TITLCR , EQUABS , INITL , CALCUL , SLPOS , 
RDFLTR, DBINIT, EPHEMS , CONFIG, PROMPT, lOERR 


Local  Variable  Declarations: 


INTEGER 

REAL 

CHARACTER* 2 4 
CHARACTER* 40 
CH7URACTER*80 


LENP (NGMAX) , ISMARY, ISHINE (NGMAX) , NXTRA, IFLTR, 
lOS, ISLPOS 
HXTRA( NXMAX) 

TFLTR 

HEADNG,FILERT 

TITLE 


COMMON  Blocks: 


/DEVICE/ , /FLAGS/  , /HEADER/ , /INITAL/ 
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SUBROUTINE  MRNDFL 


Argument  Declarations: 

ICSTL  -  INTEGER  Variable  ( Input /Output )  -  Air  mass  character  index 
ICSTL  =  1  implies  open  ocean 

ICSTL  =  10  implies  strong  continental  influence 
Values  in  between  represent  varying  degrees  of  continental 
influence 

ELPST  -  REAL  Variable  (Input)  -  Elapsed  time  since  air  parcel  left  land 
( days ) 

RADON  -  REAL  Variable  (Input)  -  Current  radon  222  concentration  (pCi/m  ) 
INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  INT,EXP 


INTEGER  FUNCTION  NCHAER 

Argument  Declarations: 

CHVAR  -  CHARACTER* (* )  Variable  -  Aerosol  model  identifier 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER*  5  UPCASE 

EXTERNAL  LCTRIM, UPCASE 

Local  Variable  Declarations: 

INTEGER  I , J 

CHARACTER*  5  CHAER (0:20,2) , CHVARP 

COMMON  Blocks :  None 


INTEGER  FUNCTION  NCHATM 

Argument  Declarations : 

CHVAR  -  CHARACTER* (* )  Variable  -  Model  atmosphere  identifier 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER*  6  UPCASE 

EXTERNAL  LCTRIM, UPCASE 

Local  Variable  Declarations: 

INTEGER  I , J 

CHARACTER*  6  CHATM (0:11,2)  , CHVARP 

COMMON  Blocks :  None 
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INTEGER  FUNCTION  NCHAZE 


Argument  Declarations: 

CHVAR  -  CHARACTER* (*)  Variable  -  Season  identifier 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 6  UPCASE 

EXTERNAL  LCTRIM , UPCASE 

Local  Variable  Declarations: 

INTEGER  I ,  J 

CHARACTER* 6  CHAZE ( -1 : 10 , 2  )  ,  CHVARP 

COMMON  Blocks :  None 


INTEGER  FUNCTION  NCHSEA 


Argument  Declarations: 

CHVAR  -  CHARACTER*!*)  Variable  -  Season  identifier 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 6  UPCASE 

EXTERNAL  LCTRIM , UPCASE 

Local  Variable  Declarations : 

INTEGER  I , J 

CHARACTER*  6  CHSEA (0:11,2), CHVARP 

COMMON  Blocks:  None 


INTEGER  FUNCTION  NCYCLE 


Argiiment  Declarations: 

N  -  INTEGER  Variable  -  Argument 

NMOD  -  INTEGER  Variable  -  Modulus 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  MOD 

Local  Variable  Declarations: 

INTEGER  M 

COMMON  Blocks :  None 
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SUBROUTINE  NXXPAU 


Argioment  Declarations: 


ZL 

PL 

TL 

ML 

NTRPAU 

NSTPAU 

NMSPAU 


REAL  Vector  (Len  =  Unspecified)  (Input)  -  Altitudes  (kin) 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Pressure  profile  (mb) 
REAL  Vector  (Len  =  Unspecified)  (Input)  -  Temperature 
profile  (K)  nxx 

INTEGER  Variable  (Input)  -  Number  of  altitude /temperature/ 
pressure  values 

INTEGER  Variable  (Output)  -  Location  of  tropopause 
INTEGER  Variable  (Output)  -  Location  of  stratopause 
INTEGER  Variable  (Output)  -  Location  of  mesopause 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

INTRINSIC 

EXTERNAL 


IBNSRC 

XTERP 

MIN 

XTERP , IBNSRC , PROF AC 


Local  Variable  Declarations: 


INTEGER 

REAL 


L , MLM , LP , LPP , LX , LCHECK , KEY , ITRP  0 
DZ , DT , DTDZ ,Z1,Z2,T1,T2, DTDZAV , DZX , DTDZX , TMAX , 
FAC 


COMMON  Blocks :  None 


REAL  FUNCTION  02CNT 


Argument  Declarations: 

V  -  REAL  Variable  -  Wavenumber  (cm"^) 

TEMP  -  REAL  Variable  -  Temperature  (K) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  INT, REAL, MIN, EXP 

EXTERNAL  02CBD 

Local  Variable  Declarations: 


INTEGER  I, IP 

real  TD , FAC , VX, 02C1 , 02C2 


COMMON  Blocks:  /02C/ 
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SUBROUTINE  OPATH 


Argument  Declarations: 


T 

P 

ZP 

UP 

VP 

WP 

ARSLAS 

ARSLSS 

ARSLAT 

ARSLST 

CLDP 


REAL  Vector  (Len  =  Unspeci 
REAL  Vector  (Len  =  Unspeci 
REAL  Vector  (Len  =  Unspeci 
REAL  Vector  (Len  =  Unspeci 
REAL  Vector  (Len  =  Unspeci 
REAL  Vector  (Len  =  Unspeci 
REAL  Vector  (Len  =  Unspeci 
the  solar  region  (km"^) 
REAL  Vector  (Len  =  Unspeci 
the  solar  region  (km"^) 
REAL  Vector  (Len  =  Unspeci 


(Len 

the  thermal  region  (km'^) 
REAL  Vector  (Len  =  Unspeci 
the  thermal  region  (km'^) 
REAL  Vector  (Len  =  Unspeci 

1  -  Low  etage 

2  -  Middle  etage 

3  -  High  etage 


f  ied) 
f  ied) 
f  ied) 
f  ied) 
f  ied) 
fied) 
f  ied) 

fied) 

fied) 

fied) 

fied) 


INTRINSIC  and  EXTERNAL  Declarations: 


( Input ) 
( Input ) 
( Input ) 
( Input ) 
( Input ) 
( Input) 
( Input ) 

( Input) 

( Input) 

( Input ) 

(Input) 


Temperature  (K) 

Pressure  (mb) 

Altitude  (m) 

H20  density  (PS*TS*ppmv) 
C02  density  (PS*TS*ppmv) 
03  density  (PS*TS*ppmv) 
Aerosol  absorption  in 

Aerosol  scattering  in 

Aerosol  absorption  in 

Aerosol  scattering  in 

Cloud  cover  (%) 


REAL 

INTRINSIC 

EXTERNAL 


SATUR 
MAX,  MIN 

SATUR ,  LAYLW ,  TRANLW 


Local  Variable  Declarations: 

INTEGER  I, J,K, JM, JP, ITYPE 

REAL  CU,CV,CW,CX(2) ,CY,CZ(2) , CTU, CTV, CTW, CTX, DQl , 

DQ2  ,  DQ3  ,  DZ  ,  UNORM ,  VNORM ,  WNORM ,  XNORM ,  YNORM , 
ZNORM, PO, TO, DENS 


COMMON  Blocks: 


/CLIMAT/ , /OMATLW/ 


SUBROUTINE  OPNSCR 


Argument  Declarations: 

IFSCR  -  INTEGER  Variable  ( Input /Output )  -  Scratch  file  device 

number 

LABEL  -  CHARACTER* (* )  Variable  (Input)  -  File  label 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

EXTERNAL  lOERR 

Local  Variable  Declarations: 


INTEGER  I , lOS 

COMMON  Blocks:  None 
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SUBROUTINE  PARSE 

Argument  Declarations: 

♦  VARIN  CHARACTER*  (* )  Variable  (Input)  ”  Input  string 

VAROUT  -  CHARACTER* {* )  Vector  (Output)  (Len  =  Unspecified)  -  Vector 
output  string 

N  -  INTEGER  Variable  (Output)  “*  Length  of  vector  string 

NMAX  -  INTEGER  Variable  (Input)  -  Maximum  length  of  vector  string 

INTRINSIC  and  EXTERNAL  Declarations: 

INTEGER  LENSTR 

INTRINSIC  LEN, MIN 

EXTERNAL  LCTRIM, LENSTR 

Local  Variable  Declarations: 

INTEGER  I,IM,IP,LINMAX,LOUTMX,ISW 

COMMON  Blocks :  None 


205 


REAL  FUNCTION  PARTIT 

Argument  Declarations : 

TEMP  -  REAL  Variable  ~  Temperature  (K)  # 

MOLEC  -  INTEGER  Variable  ~  Molecular  index 

MOLEC  =  1  implies  Water  vapor  {H20) 

MOLEC  =  2  implies  Carbon  dioxide  (C02) 

MOLEC  =  3  implies  Ozone  (03) 

MOLEC  =  4  implies  Nitrous  oxide  (N20)  ^ 

MOLEC  ~  5  implies  Carbon  monoxide  (CO) 

MOLEC  =  6  implies  Methane  (CH4) 

MOLEC  =  7  implies  Oxygen  (02) 

MOLEC  =  8  implies  Nitric  oxide  (NO) 

MOLEC  =  9  implies  Sulfur  dioxide  (S02) 

MOLEC  =  10  implies  Nitrogen  dioxide  (N02) 

MOLEC  =  11  implies  Ammonia  (NH3) 

MOLEC  =  12  implies  Nitric  acid  (HN03) 

MOLEC  =  13  implies  Hydroxyl  radical  (OH) 

MOLEC  =  14  implies  Hydrogen  fluoride  (HF) 

MOLEC  =  15  implies  Hydrogen  chloride  (HCl) 

MOLEC  =  16  implies  Hydrogen  bromide  (HBr) 

MOLEC  =  17  implies  Hydrogen  iodide  (HI) 

MOLEC  =  18  implies  Chlorine  monoxide  (CIO) 

MOLEC  =  19  implies  Carbonyl  sulfide  (OCS) 

MOLEC  =  20  implies  Formaldehyde  (H2C0) 

MOLEC  =  21  implies  Hypochlorous  acid  (HOCl) 

MOLEC  =  22  implies  Nitrogen  (N2) 

MOLEC  =  23  implies  Hydrogen  cyanide  (HCN) 

MOLEC  =  24  implies  Methyl  chloride  (CH3C1) 

MOLEC  =  25  implies  Hydrogen  peroxide  (H202) 

MOLEC  =26  implies  Acetylene  (C2H2) 

MOLEC  =  27  implies  Ethane  (C2H6) 

MOLEC  =28  implies  Phosphine  (PH3) 

MOLEC  =  29-32  are  for  future  growth 
MOLEC  =  33  implies  CFC-11  (CC13F) 

MOLEC  =  34  implies  CFC-12  (CC12F2) 

MOLEC  =  35  implies  CFC-13  (CC1F3) 

MOLEC  =36  implies  CFC-14  (CF4) 

MOLEC  =  37  implies  CFC-22  (CHF2C1) 

MOLEC  =  38  implies  CFC-113  (C2CL3F3) 

MOLEC  =  39  implies  CFC-114  (C2C12F4) 

MOLEC  =  40  implies  CFC-115  (C2C1F5) 

MOLEC  =  41  implies  C10N02 

MOLEC  =  42  implies  HN04 

MOLEC  =  43  implies  CHC12F 

MOLEC  =  44  implies  CC14 

MOLEC  =  45  implies  N205 

PARAMETER  Declarations : 

INTEGER  MLIDMX 

PARAMETER  (MLIDMX=45) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  EXP , DPROD, REAL , DBLE 

EXTERNAL  MOLPBD 

Local  Variable  Declarations : 

INTEGER  I 

REAL  TREF 

DOUBLE  PRECISION  QROT , QVIB, QV. QVO 

COMMON  Blocks :  /MOLDAT/ 
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REAL  FUNCTION  PFR 


Argument  Declarations : 

T  -  REAL  Variable  -  Temperature  (K) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  SQRT , EXP 

Local  Variable  Declarations : 

INTEGER  J 

REAL  VIB(3) ,QJ,T1,T2,T1S,T2S,V,T11,T22 

COMMON  Blocks :  None 
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SUBROUTINE  PHFUNC 


Argument  Declarations: 


V 

lAERO 

ICLOUD 

ICLDRN 

IICE 

ICIRUS 

RNRATE 

SNRATE 

L 

SCTM 

SCTA 

SCTC 

SCTI 

SCTR 

SCTS 

SCTCI 

TEMP 

KK 

LL 


REAL  Variable  (Input)  -  Wavenimber  (cm'M 
INTEGER  Variable  (Input)  -  Index  for  aerosol  type 

INTEGER  Variable  (Input)  -  Index  for  water  cloud  type 

INTEGER  Variable  Unput)  -  Index  for  cloud  and  rain 

INTEGER  Variable  (Input)  -  Index  for  ice  cloud  type 

INTEGER  Variable  (Input)  -  Index  for  cirrus  cloud  type 

REAL  Variable  (Input)  -  Rain  rate  (mm/hr) 

REAL  Variable  (Input)  -  Snowfall  rate  (mm/hr  in  eguiv,  water) 
INTEGER  Variable  (Input)  -  Altitude  index 

REAL  Variable  (Input)  -  Molecular  single-scattering  coefficient 
(km‘^) 

REAL  Variable  (Input)  -  Aerosol  single-scattering  coefficient 
(km‘^) 

REAL  Variable  (Input)  -  Water  cloud  single-scattering  coefficient 


(km'^) 

REAL  Variable  (Input) 


Ice  cloud  single-scattering  coefficient 


(km“^) 

REAL  Variable  (Input) 
REAL  Variable  (Input) 
REAL  Variable  (Input) 
coefficient  (km“^) 
REAL  Variable 
INTEGER  Variable 
INTEGER  Variable 


Rain  single-scattering  coefficient 
Snow  single-scattering  coefficient 
Cirrus  cloud  single-scattering 


(Input)  -  Temperature  (K) 
(Input)  -  Latitude  index 
(Input)  -  Longitude  index 


(km-^ 

(km-^) 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX ,  NWLAER ,  NWLCLD ,  NANG ,  MAXLAT ,  MAXLON ,  NSTTMP 
(MLMAX=140,  NSTTMP=16) 

(NWLAER=47,  NWLCLD=79,  NANG=65) 

(MAXLAT=3,  MAXL0N=1) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


CSPHFN 
MIN,  ABS 

PROFAC, PHFGBD, PHSTBD, PHTRBD , ARSLBD, PHMABD, 
CSPHFN, PHYDRO, PHURBD, PHRUBD, PHOCBD, BKSTBD 


Local  Variable  Declarations: 


INTEGER  JWL ( 8 ) , JWLP ( 8 ) , I , JTMP , JTMPP 

REAL  FACWL ( 8 ) , WLX , ASYWC , ASYIC , ASYMR, ASYMS , Pi , P2 , 

AS YMM , SCTSUM , FACTMP , AS YDUM , AS YC I , WLY 


COMMON  Blocks :  /AEROSL/ , /AERSCA/ , /AERUSR/ , /ARSLSC/ , /BSTAER/ , 

/CONSTN/ , /PHFFOG/ , /PHFMAR/ , /PHFOCE/ , /PHFRUR/ , 
/PHFSTR/, /PHFTRP/, /PHFURB/ 
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REAL  FUNCTION  PHMLSC 


Argument  Declarations : 

V  -  REAL  Variable  -  Wavenumber  (cm‘^) 

PHI  -  REAL  Variable  -  Scattering  angle  (deg) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  DEPOL 

INTRINSIC  COS 

EXTERNAL  DEPOL 

Local  Variable  Declarations: 

REAL  WL,DPL 

COMMON  Blocks:  /CONSTN/ 


SUBROUTINE  PHYDRO 


Argument  Declarations: 


V 

ICLOUD 

ICLDRN 

SCTC 

IICE 

SCTI 

ICIRUS 

SCTCI 

RNRATE 

SCTR 

SNRATE 

SCTS 

ASYWC 

ASYIC 

ASYMR 

ASYMS 

ASYCI 

TEMP 


REAL  Variable  (Input)  -  Wavenumber  (cm‘^) 

INTEGER  Variable  (Input)  -  Index  for  water  cloud  type 

INTEGER  Variable  (Input)  -  Index  for  cloud  and  rain  ^ 

REAL  Variable  (Input)  -  Scattering  coefficient  for  clouds  (km  ) 

INTEGER  Variable  (Input)  -  Index  for  ice  cloud  type 

REAL  Variable  (Input)  -  Scattering  coefficient  for  ice  clouds 


(km"^) 

INTEGER  Variable  (Input) 
REAL  Variable  (Input)  - 
REAL  Variable  (Input)  - 
REAL  Variable  (Input)  - 
REAL  Variable  (Input)  - 
REAL  Variable  (Input)  - 
REAL  Variable  (Output)  - 
REAL  Variable  (Output)  - 
REAL  Variable  (Output)  - 
REAL  Variable  (Output)  - 
REAL  Variable  (Output)  - 
REAL  Variable  (Input)  - 


-  Index  for  cirrus  cloud  type 
Scattering  coefficient  for  cirrus  (km’M 
Rain  rate  (mm/hr) 

Scattering  coefficient  for  rain  (km"^) 
Snowfall  rate  (mm/hr  in  equiv.  water) 
Scattering  coefficient  for  snow  (km"^) 

■  Water  cloud  asymmetry  factor 

•  Ice  cloud  asymmetry  factor 

■  Rain  asymmetry  factor 

•  Snow  asymmetry  factor 

■  Cirrus  cloud  asymmetry  factor 
Temperature  (K) 


PART^ETER  Declarations: 


INTEGER  NWLAER , NWLCLD , NANG 

PARAMETER  (NWLAER=47,  NWLCLD=79,  NANG=65) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


CSPHFN,XTERP 
MIN, ABS 

PROFAC , PHHYBD , CSPHFN , CIRRBD , XTERP , ARSLBD 


Local  Variable  Declarations: 


INTEGER 

REAL 


KWL , KWLP , KRT , KRTP , I , KTP , KTPP , JCIR , ITRPO 
FACWL , WLX , WLY , FACRT , FACTP , ASYMl , ASYM2 


COMMON  Blocks: 


/AEROSL/ , /CLDUSR/ , /CONSTN/ , /CRASYM/ , /PHHYDR/ 
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REAL  FUNCTION  PLANCK 

Argioment  Declarations: 

TEMP  -  REAL  Variable  ~  Temperature  (K) 

V  -  REAL  Variable  -  Wavenumber  (cm"^) 

DV  -  REAL  Variable  -  Wavenumber  increment  (cm‘^) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , DELE , EXP , DPROD , LOG 

Local  Variable  Declarations: 

INTEGER  I 

REAL  VP 

DOUBLE  PRECISION  X, Y, Cl , C2 , XMU ( 3 ) , WT ( 3 ) , DPLNCK 
COMMON  Blocks:  /CONSTN/ 


SUBROUTINE  PLANET 

Argument  Declarations: 

CENT  -  DOUBLE  PRECISION  Variable  (Input)  -  Universal  time  in  centuries 
from  1900 . 0 

LABSUN  -  DOUBLE  PRECISION  Variable  (Input)  -  Mean  longitude 

ANOMN  -  DOUBLE  PRECISION  Variable  (Input)  -  Mean  anomaly 

PERTUB  -  DOUBLE  PRECISION  Variable  (Output)  -  Planetary  nutation  and 
longitude  perturbations 

PERVEN  -  DOUBLE  PRECISION  Variable  (Output)  -  Latitude  perturbations  of  sun 
by  Venus 

PERJUP  “  DOUBLE  PRECISION  Variable  (Output)  -  Latitude  perturbations  of  sun 
by  Jupiter 

XMNLAT  -  DOUBLE  PRECISION  Variable  (Output)  -  Moon  mean  argument  of  latitude 

OBLNUT  ~  DOUBLE  PRECISION  Variable  (Output)  -  Nutation  in  obliquity 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINS IC  MOD , S IN , COS 

Local  Variable  Declarations: 

DOUBLE  PRECISION  DDCIR, ANOMLN, ELONLN, ANOMVN, PERT , ANOMAR , ANOMJP , 

ANOMSA , XNUTLN, PERINE , ASCNOD , XLONLN 

COMMON  Blocks:  /CONSTN/ 
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SUBROUTINE  PLMSUB 


Argument  Declarations: 


XN 

ACNP 

ACND 

COMA 

TAUL 

COMAE 

SLTSC 

CNTC02 

CNTH20 

MM 


Optical  depth 
Summing  variable 


REAL  Array  (Dim  =  NGAS  x  Unspecified)  (Output) 

REAL  Array  (Dim  =  NGAS  x  Unspecified)  (Output) 
for  Lorentz  line  width 

REAL  Array  (Dim  =  NGAS  x  Unspecified)  (Output)  -  Summing  variable 
for  Doppler  Line  width 
REAL  Array  (Dim  =  NGAS  x  Unspecified)  . 

for  each  atmospheric  gas  specie  and  each  line  group 
REAL  Vector  (Len  =  Unspecified)  (Output)  -  Optical  depth  for 
each  atmospheric  gas  specie 

Optical  depth  for  aerosols 
Optical  depth  due  to  aerosol  and 


(Output)  -  Optical  depth 


REAL  Variable  (Output 
REAL  Variable  (Output)  - 
molecular  scattering 
REAL  Variable  (Output)  - 
REAL  Variable  (Output)  - 
INTEGER  Variable  (Input) 


Optical  depth  due  to  C02  continuum 
Optical  depth  due  to  H20  continuum 
-  Azimuth  index 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX , MLMX2 , NAZMAX , NGAS , NNNMAX , ISMX , MAXLAT , 
MAXLON , NGMAX , MOLMAX , MLIDMX 
(MLMAX=140,  MLMX2=2*MLMAX,  MLIDMX=45) 
(NGAS=6,  NNNMAX=5,  MOLMAX=26,  ISMX=MOLMAX+8 ) 
(NGMAX=15,  NAZMAX=30) 

( MAXLAT=3 ,  MAXLON=l ) 


INTRINSIC  and  EXTERNAL  Declarations: 


real  COMFNC 

EXTERNAL  COMFNC , MOLPBD 


Local  Variable  Declarations: 


INTEGER 

REAL 


COMMON  Blocks: 


I,K,L,KL, IV,MLC,KK,LL 

PO , PS , DUMA, DUMB, DUMF, DUMG, DUMX, SDX, CDX, CDY , ADX, 
ALX,CD1,CD2 

/ INITAL/ , /MOLCON/ , /MOLECP/ , / PATHl /  , / PATHIA/ , 
/PLMDAT/ , /PRBNDA/ , /PRBNDB/ 


DOUBLE  PRECISION  FUNCTION  POLY 


Argument  Declarations : 

X  -  DOUBLE  PRECISION  Variable  -  Argument 

C  -  DOUBLE  PRECISION  Vector  (Len  =  Unspecified)  -  Coefficients 

N  -  INTEGER  Variable  -  Length  of  C 

Local  Variable  Declarations : 

INTEGER  I 

COMMON  Blocks :  None 
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SUBROUTINE  PRALT 


Argument  Declarations : 

PRESS  -  REAL  Variable  (Input)  -  Atmospheric  pressure  (mb) 
ALT  -  REAL  Variable  (Output)  -  Pressure  altitude  (km) 
lERR  -  INTEGER  Variable  (Output)  -  Error  flag 
lERR  =  0  implies  no  error 

lERR  =  1  implies  PRESS  is  greater  than  1777 . 6  mb 
lERR  =  2  implies  PRESS  is  less  than  0.0044568  mb 

INTRINSIC  and  EXTERNAL  Declarations: 

INTEGER  IBNSRC 

INTRINSIC  MIN, LOG 

EXTERNAL  IBNSRC 

Local  Variable  Declarations: 

INTEGER  KEY,KEYP 

REAL  Z(58) , P(58) , FAC 

COMMON  Blocks:  None 
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SUBROUTINE  PRCALC 


V 


Argioment  Declarations : 


IFSCRI 

INITV 


INITGM 


IV 

HEADNG 

TITLE 

IFLTR 

TFLTR 

ISMARY 

ISWATM 


INTEGER  Variable  (Input)  -  File  number  for  source  skyshine 
solar  path  data 

INTEGER  Variable  (Input)  -  Initial  value  for  spectral  loop.  For 
standard  calculations,  INITV  =  1.  For  restart  calculations,  it 
provides  the  value  at  which  to  restart. 

INTEGER  Variable  (Input)  -  Initial  value  for  geometry  loop.  For 
standard  calculations,  INITGM  =  1.  For  restart  calculations, 
it  provides  the  value  at  which  to  restart. 

INTEGER  Variable  (Input)  -  Spectral  interval  number 
CHARACTER* {* )  Variable  (Input)  -  File  heading 
CHARACTER* (* )  Variable  (Input)  -  File  title 
INTEGER  Variable  (Input)  -  Filter  index 
CHARACTER* (* )  Variable  (Input)  -  Filter  title 
INTEGER  Variable  (Input)  -  Summary  index 

INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  (Input)  -  Switch 
for  model  atmospheres 


PARAMETER  Declarations: 


INTEGER 


PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NAZMAX , NASMAX , NGAS , NNNMAX , MLMAX , I SMX , MLMX2 , 

I STMAX , NBAND , NGMAX , NZSMAX , NMATL , NWLAER , 
NWLCLD , NANG , MAXLAT , MAXLON , NL , NVSMAX , MOLMAX , 
MLIDMX 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  MLMX2=2*MLMAX) 

(M0LMAX=26,  ISMX=M0LMAX+8,  MLIDMX=45) 
(ISTMAX=30000) 

(NBAND=16,  NNNMAX=5,  NGAS=6,  NMATL=28) 
(NWLAER=47,  NWLCLD=79,  NANG=65) 

(MAXLAT=3,  MAXLON=l,  NVSMAX=20) 

(NL=50) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

CHARACTER* 7 2 

INTRINSIC 

EXTERNAL 


SOLAR, SLUNAR, SCINTL, PLANCK, DPLDT, FILTER 
lOERR 

MAX , MIN , REAL , SQRT , LOG 

BNDPAR, SOLAR, BNTPTH, PLANCK, BCKGND , SOLRAD , 
PTHTAU, RESOLV, SCINTL, DEVCBD, ARSLBD, RSHINE, 
PTHOSB ,  SMPCAL ,  SLUNAR ,  TERMPR ,  PLMSUB ,  lOERR , 
MOLPBD , COUPLE , MLSCAT , DPLDT , XPNDAR , INTEG , 
INDXBK, KDISTR, ATMPRN, BCKPRN, FILTER, ZROINT, 
ATMSBD, DISPRN 
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SUBROUTINE  PRCALC  (continued) 

Local  Variable  Declarations: 

INTEGER  I,K,L,M,N,MM,IZ,KL,LB, lOS, ITYP1,MM1,NLNT0T, 

KSCENE(MAXLAT,MAXLON)  , LPS,  LPL, KK, LL, NVP, IP, 
KDVl , KDV2 , LLB , I STORl , IGEOM , NLOCAT , NSLTOT 
REAL  XN(NGAS,NNNMAX) , RDSLSP (NAZMAX, MLMX2 , 2 ) ,V, 

ACNP ( NGAS , NNNMAX ) , ACND { NGAS , NNNMAX ) , TNOON , 
COMA(NGAS,NNNMAX) , FLTR, TAUPLM (NGAS ) ,V1P,V2P, 
SI (ISMX) , S2 (ISMX) , S3 (ISMX) , SOLX, S4 (ISMX) , 

S5 (ISMX) ,S1T(ISMX) ,S2T(ISMX) , RTH, RSL, SLTSC, 
DRADP2, S3T(ISMX) ,S4T(ISMX) , TAUX, AZL , XLUN, 
SSTdSMX)  ,RADSLP  (NAZMAX, MLMX2)  ,DV,TMIDN, 
RADLNP ( NAZMAX , MLMX2 ) , PRO JS ( 6 , NAZMAX , NGMAX ) , 
PRO JL ( 6 , NAZMAX , NGMAX ) , HSKYSH , HSC ATT , COMAE , 
DRADP ( NAZMAX , MLMX2 ) , RADPTH ( NAZMAX , MLMX2 , 2 ) , 
SIGMEP (NAZMAX, MLMX2) , TAUSCP (NAZMAX, MLMX2 ) , 
PHIBM (NAZMAX) , SOLAZP , AZS , BW, BWL, RDSCVS, 

CNTC02 , CC , RDSCVL , RR2X (NAZMAX) , CNTH20, RDLNSP, 
TAULR (NAZMAX , MLMX2 ) , BKSUMV ( 6 , NMATL , NAZMAX ) , 
ALNTAU , BLNTAU , TAUUMG , TAUTRC , TAUHSC , TAUHAB , 
TSLS,TSLB,AZO,RADSLS(NZSMAX,NASMAX) , 
RADLNS(NZSMAX,NASMAX) ,S6 (ISMX) ,S6T(ISMX) , 

AZ IMP ( NAZMAX ) , SHOWS ( NAZMAX , NGMAX ) , 

SHDWL ( NAZMAX , NGMAX ) 

DOUBLE  PRECISION  XS ( ISMX) , XST ( ISMX) , SCTIS , SCTIL , SCT3S , SCT3L , 

TAUL (MLMX2 ) , TAULA (MLMX2 ) 

LOGICAL  FLBCKZ (NGMAX) , FLTRUE 

COMMON  Bloclcs :  /AEROSL/ , /ARSLSC/ , /ATMDAT/ , /BCKDAT/ , /CONSTN/ , 

/CURGDA/ , /CURGDB/ , /CURGDC/ , /DEVICE/ , /FLAGS/  , 
/INITAL/ , /INTSTO/ , /HEADER/ , /KDISDT/ , /LYRSTO/ , 
/MOLCON/ , /MOLECP/ , /MSPARM/  ,  /OPTDEP/ , /PATHl/  , 
/PATHIA/ , /PATH4/  , /PATH5A/ , /PATH5B/ , /PATH5C/ , 
/PATH5D/ , /PATH6/  , /PATHS/  , /TRANS P/ 
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SUBROUTINE  PRETEM 


Argument  Declarations: 


T 

P 

ZP 

UP 

VP 

WP 

HB 

CLALTB 


CLALTT 


TAIRLC 

PAIRLC 

CH20LC 

KK 

LL 


REAL  Vector  (Len  =  Unspecified)  (Output)  ”  Temperature  (K) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Pressure  (mb) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Altitude  (m) 

versus  pressure 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  H2O  density 
(scaled  LOWTRAN  units)  versus  pressure 
REAL  Vector  (Len  =  Unspecified)  (Output)  -  CO2  density 
(scaled  LOWTRAN  units)  versus  pressure 
REAL  Vector  (Len  =  Unspecified)  (Output)  -  O3  density 
(scaled  LOWTRAN  units)  versus  pressure 
REAL  Variable  (Input)  -  Terrain  altitude  (km)  .  n  ^ 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Cloud  base  altitudes  (km) 

1  -  Low  etage 

2  -  Middle  etage 

3  -  High  etage  ^  ^  ^  \ 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Cloud  top  altitudes  (Ion) 

1  -  Low  etage 

2  -  Middle  etage 

3  -  High  etage 

REAL  Variable  (Input)  -  Surface  air  temperature  (K) 

REAL  Variable  (Input)  -  Surface  air  pressure  (mb) 

REAL  Variable  (Input)  Surface  water  vapor  content  (ppmv) 

INTEGER  Variable  (Input)  -  Latitude  index 
INTEGER  Variable  (Input)  -  Longitude  index 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 


MLMAX , ISMX , MAXLAT , MAXLON , NGMAX , MOLMAX , MLIDMX 
(MLMAX=140,  MOLMAX=26,  ISMX=M0LMAX+8) 
(MAXLAT=3,  MAXLON=l,  NGMAX=15,  MLIDMX=45) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  REAL , INT , LOG , MAX , MIN , ABS 

EXTERNAL  MOLPBD 


Local  Variable  Declarations: 


INTEGER 

REAL 


J , K, IP , IPl , IP2 , IL , J2 , UMAX , JPMAX 
ALTLAY ( 10 ) , HP , DELZ , DELZIP , PO , TO , DENS J , DENS JP , 
DP , T1 , PI , HI , T2 , P2 , H2 , FAC 


COMMON  Blocks :  /CLIMAT/ , /CONSTN/ , /INITAL/ , /MOLCON/ 
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SUBROUTINE  PROFAC 


Argument  Declarations: 

XO  -  REAL  Variable  (Input)  -  Value  of  X  for  which  interpolation  will 

be  performed 

X  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  X-array  (must  be 

monotonically  increasing 

N  -  INTEGER  Variable  (Input)  -  Dimension  of  X-array 

KEY  -  INTEGER  Variable  (Output)  -  Position  in  X-array  for  which  the 

XO -value  is  adjacent 

FAC  -  REAL  Variable  (Output)  -  The  proportional  factor  for  interpolation 

INTRINSIC  and  EXTERNAL  Declarations: 

INTEGER  IBNSRC 

INTRINSIC  MAX , MIN , ABS 

EXTERNAL  IBNSRC 

Local  Variable  Declarations: 

INTEGER  KEYP 

REAL  DX 

COMMON  Blocks:  /CONSTN/ 


SUBROUTINE  PROMPT 

Argument  Declarations: 

STRING  -  CHARACTER* (* )  Variable  -  Prompt  request 
Local  Variable  Declarations:  None 
COMMON  Blocks:  None 
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SUBROUTINE  PRTHDR 


Argument  Declarations: 

NFILE  -  INTEGER  Variable  (Input)  -  Device  nxamber 
PARAMETER  Declarations : 

INTEGER  NAZMAX , NASMAX , NGMAX , NZ  SMAX , MAXLAT , MAXLON , I SMX , 

NVSMAX,MOLMAX 

PTUUU^ETER  (NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 

PARAMETER  (MAXLAT=3,  MAXLON=l,  NVSMAX=20) 

PARAMETER  (MOLMAX=26,  ISMX=MOLMAX+8 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

EXTERNAL  lOERR 

Local  Variable  Declarations: 

INTEGER  K , L , M , lOS , KK , LL , MM , IV , IGEOM 

COMMON  Blocks:  /HEADER/ 
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SUBROUTINE  PTHOSB 


Argument  Declarations: 


L 

TAUL 

TAULA 

RADPTH 

DRADB2 

RR2X 

TAUSCP 

PTHFAC 

NPTH 


INTEGER  Variable  (Input)  *-  Location  in  integration 

DOUBLE  PRECISION  Vector  (Len  =  Unspecified)  (Input)  ~  Transmittance 
along  observer- source-background  path 
DOUBLE  PRECISION  Vector  (Len  =  Unspecified)  (Input)  -  Transmittance 
due  to  absorption  along  the  observer-source-background  path 
REAL  Variable  (Output)  -  Path  thermal  radiance  (W/cm^/sr /cm'^ ) 

REAL  Variable  (Output)  -  Variance  in  path  thermal  radiance 
(W/cm^/sr/cm'^)  ^ 

REAL  Variable  ( Input /Output )  -  Second  integral  in  EXPIRT  for 
scattering  case  (W/cm^/sr/cm“^) 

REAL  Variable  ( Input /Output )  -  Transmittance,  including  scattered 
out  of  the  beam,  but  still  received  by  the  observer 
REAL  Array  (Len  =  MAXLAT  x  Unspecified)  (Input)  -  Proportionality 
factor  for  multiple  atmospheres 
INTEGER  Array  (Dim  =  2  x  Unspecified)  (Input)  -  Limits  for 
non-zero  elements  of  PTHFAC 


PARAMETER  Declarations : 


INTEGER 


PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX , MLMX2 , NAZMAX , NBAND , ISMX , NANG , MAXLAT , 
MAXLON ,  NGMAX ,  NASMAX ,  NZ  SMAX ,  NVSMAX ,  MOLMAX , 
MLIDMX 

(MLMAX=140,  MLMX2=2*MLMAX,  NAZMAX=30,  NGMAX=15) 
(NBAND=16,  MOLMAX=26,  ISMX=MOLMAX4-8 ) 

(NASMAX=15,  NZSMAX=4,  NANG=65,  MLIDMX=45) 
(MAXLAT=3,  MAXL0N=1,  NVSMAX=20) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


RADTRX 

REAL , DPROD , ABS , COS , SQRT , DBLE , ATAN2 , EXP , MAX 
RADTRX 


Local  Variable  Declarations: 


INTEGER  K , KL , KLM , KK , LL , LX 

REAL  DUM, ACCZ,DUMP, ASYMT, SCTZl, SCTZ2 

DOUBLE  PRECISION  PLKl , PLK2 , DPLKl , DPLK2 , DELTAU , SUMP , SUM 

COMMON  Blocks :  /ARSLSC/ , /CONSTN/ , /CURGDC/ , /HEADER/ , /INITAL/ , 

/LYRSTO/ , /MOLECP/ , /PATHl/ , /PRBNDA/ 
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SUBROUTINE  PTHTAU 


Argument  Declarations: 


N 

ITL 

DR 

XS 

51 

52 

53 

54 

55 

56 

TAUF 

TAU 

TAUA 
ITYPE  - 

I STORE  - 

PTHFAC  ~ 

NPTH 

FLTRN  - 

NO 

MM 

DV 


-  Summing  variable  for 


Summing  variable  for 
Summing  variable  for 
-  Summing  variable  for 


INTEGER  Variable  (Input)  -  Number  of  increments _ along  path 
INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Point  in  altitude 
grid  for  each  path  increment 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Length  of  each 
incremental  path  segment  (km) 

DOUBLE  PRECISION  Vector  (Len  =  Unspecified)  (Input)  -  Optical  depth 
REAL  Vector  (Len  =  Unspecified)  (Input)  -  Summing  variable  for 
Lorentz  halfwidth  times  line  density 
REAL  Vector  (Len  =  Unspecified)  (Input) 

Doppler  halfwidth  times  line  density 
REAL  Vector  (Len  =  Unspecified)  (Input)  -  Summing  variable  for 
line  density 

REAL  Vector  (Len  =  Unspecified)  (Input) 
the  continuum 

REAL  Vector  (Len  =  Unspecified)  (Input) 
scattering 

REAL  Vector  (Len  =  Unspecified)  (Input) 

(Lorentz  halfwidth) ^  times  line  density 
REAL  Variable  (Output)  -  Transmittance  for  the  whole  path 
DOUBLE  PRECISION  Vector  (Len  =  Unspecified)  (Output)  - 
Transmittances  at  each  point  along  path  (i.e.,  an 
incremental  set  of  transmittances) 

DOUBLE  PRECISION  Vector  (Len  =  Unspecified)  (Output)  - 
Transmittance  due  to  absorption 
INTEGER  Variable  (Input)  -  Calculation  index 

ITYPE  =  0  implies  that  only  the  final  transmittance  is  calculated 
ITYPE  =  1  implies  that  incremental  transmittance  is  calculated 
INTEGER  Variable  (Input)  Storage  index 
ISTORE  =  0  implies  no  intermediate  storage 
ISTORE  =  1  implies  intermediate  storage  required 
REAL  Array  (Dim  =  MAXLAT  MAXLON  x  Unspecified)  (Input)  ^ 
Proportionality  factor  for  path 
INTEGER  Array  (Dim  =  2  x  Unspecified)  (Input)  -  Limits  for 
non-zero  elements  of  PTHFAC 
LOGICAL  Variable  (Input)  -  Flag  for  storing  component 
transmission  values 

INTEGER  Variable  (Input)  -  Increment  for  which  transmission 
values  are  to  be  stored 
INTEGER  Variable  (Input)  -  Azimuth  index 
REAL  Variable  (Input)  -  Wavenumber  increment  (cm'^) 


PARAMETER  Declarations; 

MLMAX ,  MLMX2  ,  ISMX ,  MAXLAT ,  MAXLON ,  MOLMAX ,  MLIDMX 
(MLMAX=140,  MLMX2=2*MLMAX) 

(MOLMAX=26,  I SMX=MOLMAX+ 8 ,  MLIDMX=45) 
(MAXLAT=3,  MAXL0N=1) 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  MAX , REAL , DPROD 

EXTERNAL  TRNSMT , BNTPTH 


Local  Variable  Declarations: 

INTEGER  K , L , LM , KL , KLM , KK , LL 

real  sip (ISMX) ,S2P(ISMX) ,S3P(ISMX) ,S4P(ISMX) , DUM3 , S5P ( ISMX) , 

DELTAU,  DUMSD ,  DUMCD,  DUMSC ,  DUMl ,  DUM2  ,  DR2  ,  DUM4  ,  S6P  ( ISMX) 
DOUBLE  PRECISION  XSP ( ISMX) , TAUD, SCFD 
LOGICAL  FLAG 

COMMON  Blocks :  /CONSTN/ , /CGWTS/ . /CURGDA/ , /CURGDB/ , /CURGDC/ , 

/MOLECP/ , /OPTDEP/ , /PRBNDA/ , /PRBNDB/ 
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SUBROUTINE  PUTCLD 


Argiiment  Declarations:  None 
PARAMETER  Declarations: 

INTEGER  NAZMAX , NASMAX , NGMAX , NZ  SMAX , MAXLAT , MAXLON , I SMX , 

NVSMAX , MOLMAX 

PARAMETER  (NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 

PARAMETER  (MAXLAT=3 ,  MAXLON=l,  NVSMAX=2  0) 

PARAMETER  (MOLMAX=26,  ISMX=MOLMAX+8 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

EXTERNAL  CHRCBD , DEVCBD , CLDRBD , lOERR 

Local  Variable  Declarations : 

INTEGER  lOS , K , KK , LL 

COMMON  Blocks :  /CHRCNM/ , /CLDRN/  , /DEVICE/ , /HEADER/ 


SUBROUTINE  PUTHDR 

Argument  Declarations: 

INITV  -  INTEGER  Variable  (Input)  -  Initial  value  for  spectral  loop.  For 

standard  calculations,  INITV  =  1.  For  restart  calculations,  i 

provides  the  value  at  which  to  restart. 

LATST  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Latitude  grid 

LONST  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Longitude  grid 

MTIME  -  INTEGER  Variable  (Input)  -  Number  of  temporal  variables 


PARAMETER  Declarations: 

INTEGER  NAZMAX ,  NASMAX ,  NGAS  ,  MLMAX ,  I  SMX ,  NGMAX ,  NZSMAX ,  NBAND , 

MAXLAT ,  MAXLON,  NVSMAX ,  MOLMAX ,  MLIDMX 
PARAMETER  (NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 

PARAMETER  {MLMAX=140,  MLIDMX=45) 

PARAMETER  (MOLMAX=26,  ISMX=MOLMAX+8 ,  NGAS=6,  NBAND=16) 

PARAMETER  (MAXLAT=3 ,  MAXLON=l,  NVSMAX=20) 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

INTRINSIC  REAL 

EXTERNAL  PRTHDR , lOERR , DEVCBD , MOLPBD 

Local  Variable  Declarations: 

INTEGER  L,NVARA (NGMAX) , NVARB ( NGMAX ) , NVARP (NGMAX) ,KK,LL, 

NVARM (NGMAX) , NVARH (NGMAX) , NVART (NGMAX) , IG, 

NVH (NVSMAX) , NHDR ( 2 ) , NHDRB ( 2 ) , NHDRM ( 2 ) , ITP , 

NHDRH ( 2 ) , IZ , lOS , IGEOM , NGEOMH , NVSETH 

COMMON  Blocks :  /BCKDAT/ , /DEVICE/ , /HEADER/ , /INITAL/ , /MOLCON/ , 

/MOLECP/ 


SUBROUTINE  PUTSLR 

Argument  Declarations :  None 
PARAMETER  Declarations; 

INTEGER  NAZMAX , NASMAX , NGMAX , NZ  SMAX , MAXLAT , MAXLON , I SMX , 

NVSMAX,MOLMAX 

PARAMETER  (NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 

PARAMETER  (MAXLAT=3,  MAXLON=l,  NVSMAX=20) 

PARAMETER  ( MOLMAX=2  6 ,  I SMX=MOLMAX+  8 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  SLRCNT 

CHARACTER* 72  lOERR 

EXTERNAL  S  LRCNT , DEVCBD , lOERR 

Local  Variable  Declarations: 

INTEGER  I OS 

REAL  SLRC 

CHARACTER*  8  LOCAT ( 2 ) 

COMMON  Blocks:  /DEVICE/ , /FLAGS/  , /HEADER/ 


REAL  FUNCTION  RAB 

Argument  Declarations: 

REAL  Variable  -  Diffuse  reflection  coefficient,  layer  1 
REAL  Variable  -  Directional  reflection  coefficient,  layer  1 
REAL  Variable  -  Diffuse  reflection  coefficient,  layer  2 
REAL  Variable  -  Directional  reflection  coefficient,  layer  2 
REAL  Variable  -  Diffuse  reflection  coeff icient , layer  3 
REAL  Variable  -  Transmission,  layer  2 
REAL  Variable  -  Transmission,  layer  3 
REAL  Variable  -  Composite  R  and  T  from  FUNCTION  GTUi 

Local  Variable  Declarations: 

REAL  T,TT 

COMMON  Blocks :  None 


R1 

RlS 

R2 

R2S 

R3 

T2 

T3 

G 


221 


REAL  FUNCTION  RADFLD 


Argument  Declarations : 

TEMP  -  REAL  Variable  -  Temperature  (K) 

V  -  REAL  Variable  -  Wavenumber  (cm“^) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , DPROD , EXP 

Local  Variable  Declarations: 

REAL  TREF 

DOUBLE  PRECISION  DUM.DUMO 

COMMON  Blocks:  None 


REAL  FUNCTION  RADTRX 


Argument  Declarations: 

Y1  -  DOUBLE  PRECISION  Variable  -  Value  of  Y(X1) 

XI  -  DOUBLE  PRECISION  Variable  -  Initial  point  of  integration 

Y2  -  DOUBLE  PRECISION  Variable  -  Value  of  Y(X2) 

X2  ~  DOUBLE  PRECISION  Variable  -  Final  point  of  integration 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  LOG , AB  S , MAX , MIN , REAL 

Local  Variable  Declarations: 

DOUBLE  PRECISION  DXl , DX2 , DYl , DY2 , XLNX , XLNY 

COMMON  Blocks:  /CONSTN/ 


REAL  FUNCTION  RADTRY 


Argument  Declarations: 

Y1  -  DOUBLE  PRECISION  Variable  -  Value  of  Y{X1) 

Y2  -  DOUBLE  PRECISION  Variable  -  Value  of  Y{X2) 

DX  -  DOUBLE  PRECISION  Variable  -  Increment  of  integration 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  LOG, ABS , REAL , MAX 

Local  Variable  Declarations: 

DOUBLE  PRECISION  DYl , DY2 , XLNY 

COMMON  Blocks:  /CONSTN/ 
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REAL  FUNCTION  RAINEX 


Argument  Declarations: 

RATE  “  REAL  Variable  -  Rain  rate  (mm/hr) 

ITYPE  -  INTEGER  Variable  -  Type  of  distribution^ 

ITYPE  =  1  implies  a  Marshall-Palmer  distribution 
ITYPE  =  2  implies  a  Drizzle  (Joss  and  Waldvogel) 

ITYPE  =  3  implies  a  Widespread  rain  (Joss  and  Waldvogel) 
ITYPE  =  4  implies  a  Thunderstorm  (Joss  and  Waldvogel) 
ITYPE  =  5  implies  a  Thunderstorm  (Sekhon  and  Srivastava) 

INTRINSIC  and  EXTERNAL  Declarations: 

EXTERNAL  RAINED 

Local  Variable  Declarations: 

REAL  XN,ALPH 

COMMON  Blocks:  /CONSTN/, /RAINTP/ 


SUBROUTINE  RAINSP 

Argiament  Declarations: 

WL  -  REAL  Variable  (Input)  -  Wavelength  (]im) 

RATE  -  REAL  Variable  (Input)  -  Rain  rate  (mm/hr) 

TEMP  -  REAL  Variable  (Input)  -  Temperature  (K)  _  ^  ^ 

IRAIN  -  INTEGER  Variable  (Input)  -  Type  of  rain  distribution 
TRAIN  =  1  implies  a  Marshall-Palmer  Distribution 
IRAIN  =  2  implies  a  drizzle  (Joss  and  Waldvogel) 

IRAIN  =  3  implies  a  widespread  rain  (Joss  and  Waldvogel) 
IRAIN  =  4  implies  a  thunderstorm  (Joss  and  Waldvogel) 
IRAIN  =  5  implies  a  thunderstorm  (Sekhon  and  Srivastava) 
RNABS  -  REAL  Variable  (Output)  -  Normalized  absorption  coefficient 

RNSCT  -  REAL  Variable  (Output)  -  Normalized  scattering  coefficient 

PARAMETER  Declarations: 

INTEGER  NWLCLD 

PARAMETER  ( NWLCLD=7  9 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

INTRINSIC  MIN 

EXTERNAL  PROFAC ,  XTERP ,  CLDRBD ,  RAINBD 

Local  Variable  Declarations: 

INTEGER  KEYWL.KEYWLP, ITYPE, KEYTP, KEYTPP, NVAR7 , ITRPO 

REAL  RATEFF ,  RAl ,  RA2  ,  RXl ,  RX2  ,  FACWL ,  FACTP ,  RAll ,  RA12  , 

RA21 ,  RA22  ,  RXll ,  RX12  ,  RX21 ,  RX22 

COMMON  Blocks:  /CLDRN/  , /RAINTP/ , /RAINWL/ 
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SUBROUTINE  RAYPTH 


Argument  Declarations: 


LI 

L2 

PHIl 

LENP 

R 

PHI 

THETA 

IZ 

KL 

KLMAX 

IBKGD 


HTNGT 

NLAT 

NLON 


INTEGER  Variable  (Input)  Altitude  index  for  the  initial 
point  of  the  ray 

INTEGER  Variable  (Input)  -  Altitude  index  for  the  final 
point  of  the  ray 

DOUBLE  PRECISION  Variable  (Input)  -  Elevation  angle  at  the 
initial  point  of  the  ray  (rad) 

INTEGER  Variable  (Input)  -  Index  for  path  length 
LENP  =  0  implies  the  short  path 
LENP  =  1  implies  the  long  path  (if  it  exists) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Array  of 
cumulative  slant  ranges  along  the  ray  (km) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Array  of 
elevation  angles  along  the  ray  (rad) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Array  of 
earth-center  angles  along  the  ray  (rad) 

INTEGER  Vector  (Len  =  Unspecified)  (Output)  -  Array  of 
altitude  indices  along  the  ray 
INTEGER  Variable  (Output)  -  Number  of  elements  in  the 
arrays  R,  PHI,  THETA,  and  IZ 

INTEGER  Variable  (Input)  -  DIMENSION  of  R,  PHI,  THETA,  and  IZ 
INTEGER  Variable  (Output)  -  Background  index 

Note  -  If  ray  path  terminates  at  a  point  other  than  L2 , 

the  input  value  is  changed  so  that  IBKGD  =  -3  if 
the  ray  terminates  in  space,  and  IBKGD  =  -4  if 
the  ray  terminates  on  the  earth  (i.e.,  L  =  1) 

REAL  Variable  (Input /Output )  -  Tangent  altitude  (km) 

INTEGER  Variable  (Input)  -  Number  of  latitudes 
INTEGER  Variable  (Input)  -  Number  of  longitudes 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 


MLMAX , ISMX , MAXLAT , MAXLON , NGMAX , MOLMAX 
(MLMAX=140,  MOLMAX=26,  ISMX=M0LMAX+8 ) 
(MAXLAT=3,  MAXL0N=1,  NGMAX=15) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  REAL , INT , COS , ACOS , SIN , DBLE , S IGN , ABS , MAX , MIN 

EXTERNAL  TANGPT 

Local  Variable  Declarations: 


INTEGER  J , K , JP , JM , JMM , ICHK , IDRCT , KLAT , KLON 

DOUBLE  PRECISION  SNELL, PXl , PX2 , MH , MHP, XDRCT , RD, RX , TD, DZ , DPHIl , 

DPHI2 , PXO , DFAC , XMHO , DXMHl , DXMH2 

COMMON  Blocks:  /INITAL/ 
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REAL  FUNCTION  RBE 


Argument  Declarations: 


R1 

-  REAL 

Variable 

RIS 

-  REAL 

Variable 

R2 

-  REAL 

Variable 

R2S 

-  REAL 

Variable 

R3 

-  REAL 

Variable 

R3S 

-  REAL 

Variable 

T3 

--  REAL 

Variable 

T2 

-  REAL 

Variable 

G 

-  REAL 

Variable 

Diffuse  reflection  coefficient,  layer  1 
Directional  reflection  coefficient,  layer  1 
Diffuse  reflection  coefficient,  layer  2 
Directional  reflection  coefficient,  layer  2 
Diffuse  reflection  coefficient, layer  3 
Directional  reflection  coefficient,  layer  3 
Transmission,  layer  3 
Transmission,  layer  2 
Composite  R  and  T  from  FUNCTION  GAM 


Local  Variable  Declarations : 


REAL 


T,TT 


COMMON  Blocks :  None 


SUBROUTINE  RDFLTR 


Arg\iment  Declarations: 

IFLTR  -  INTEGER  Variable  (Input /Output)  -  Filter  index 

For  now,  it  is  1  for  all  user-defined  filters. 

TFLTR  -  CHARACTER* (* )  Variable  (Output)  -  Name  of  filter  response 
This  name  is  printed  out  on  the  ASCII  printout. 

PARAMETER  Declarations: 

INTEGER  MOLMAX 

PARAMETER  ( MOLMAX=2  6 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

LENSTR 
GETVAR 
LWCASE 
UPCASE 
lOERR 
MIN 

DEVCBD, RDLINE, PARSE, GETVAR, UPCASE , lOERR , INFLBD, 
LCTRIM, LENSTR, LWCASE 


INTEGER 

REAL 

CHARACTER* 2 
CHARACTER* 3 
CHARACTER* 7 2 
INTRINSIC 
EXTERNAL 


Local  Variable  Declarations: 


INTEGER 

REAL 

CHARACTER*! 
CHARACTER* 20 
CHARACTER* 80 
CHARACTER*255 


I , lOS , NDATA, ICOLO , ICOL4  0 , NVAR3 , KODE , NW, NF , IFT , 
IPRINT , NLOW, NEW, LENF , IFWV 
TEMP 
DOT 

VRDATA(3) ,IDFIL 
TITLE , DUMMY 
VARIAB 


COMMON  Blocks :  /DEVICE/ , /FLTRDT/ , /INFLTR/ 
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SUBROUTINE  RDGBL 


Argument  Declarations: 


XLAT 

XLONG 

MONTH 

GMT 

TSRF 

CLCV 

CIRR 

CLDRAD 

FRSMW 

FRICE 


REAL  Variable  (Input)  -  Latitude  (deg) 

REAL  Variable  (Input)  -  Longitude  (deg) 

INTEGER  Variable  (Input)  -  Month  of  year 

REAL  Array  (Dim  =  2  x  Unspecified)  (Output)  -  Time  (GMT  dec.  hr.) 
REAL  Array  (Dim  =  2  x  Unspecified)  (Output)  -  Surface  temperature 
(K) 

REAL  Array  (Dim  =  2  x  0:3  x  Unspecified)  (Output)  -  Cloud  cover  (%) 
REAL  Variable  (Output)  (Output)  ~  Percentage  cirrus  clouds  (%) 

REAL  Array  (Dim  =  2  x  3  x  Unspecified)  (Output)  -  Cloud 
radiance  (pW/cm^/sr) 

REAL  Variable  (Output)  (Output)  -  Percentage  snow  cover  (%) 

REAL  Variable  (Output)  (Output)  -  Percentage  ice  (%) 


PARAMETER  Declarations: 

INTEGER  MOLMAX 

PARAMETER  (MOLMAX=2  6 ) 

INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

CHARACTER* 7 2 
INTRINSIC 
EXTERNAL 
CIBMV  EXTERNAL 


SEAICE 

lOERR 

MOD , INT , INDEX , LEN 
DEVCBD, lOERR, SEAICE 
FILEINF 


Local  Variable  Declarations: 


CIBMV 


INTEGER 
INTEGER 
REAL 
LOGICAL 
CHARACTER*  120 


I ,  J ,  K ,  IREC ,  NREC  (40),  lOS  ,  IPRINT ,  IXM 
I  ERR 

YLONG , YLAT (41), DLON (40), ZLAT , ZLONG , TERR 

FLGBL 

NFILE 


COMMON  Blocks: 


/DEVCNM/ , /DEVICE/ 
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SUBROUTINE  RDLINE 


Argument  Declarations: 

lUNIT  -  INTEGER  Variable  (Input)  -  Unit  number 
ISKIP  -  INTEGER  Variable  (Input)  -  Number  of  characters  to  be 
skipped  on  initial  READ 

OUTBUF  -  CHARACTER’^  (* )  Variable  (Output)  -  Buffer  for  output 
INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 
CHARACTER* 7 2 
INTRINSIC 
EXTERNAL 


LENSTR 

lOERR 

NAX,MIN,LEN 
LCTRIM, LENSTR, lOERR 


Local  Variable  Declarations: 


INTEGER 
CHARACTER* 80 
LOGICAL 


I , K , I START , lEND , IMAXLN , IBUFLN , lOS , JMAXLN , KMAX , JSKI P 

IBUFFR,TBUFFR 

FIRST, CONTNU 


COMMON  Blocks :  None 
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SUBROUTINE  RDSCN 


Argument  Declarations : 


XLAT  -  REAL  Variable  (Input)  -  Latitude  (deg) 

XLONG  -  REAL  Variable  (Input)  -  Longitude  (deg) 

ALT  ~  REAL  Variable  (Output)  -  Altitude  (m) 

IBK  -  INTEGER  Variable  (Output)  -  Scene  index 

FRWTR  -  REAL  Variable  (Output)  -  Fraction  surface  water  in 


PARAMETER  Declarations : 

INTEGER  MOLMAX 

PARAMETER  ( M0LMAX=2  6 ) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 
CIBM  INTEGER 
CVAX  INTEGER 
CLAH  INTEGER 

CHARACTER* 7 2 
INTRINSIC 
CMIL  INTRINSIC 
CVAX  INTRINSIC 
CLAH  EXTERNAL 
CIBM  EXTERNAL 
EXTERNAL 
CIBMV  EXTERNAL 


IBKCNV 

IBITS 

JIBITS 

JIBITS 

lOERR 

MOD , INT , MAX , MIN , INDEX , ABS , LEN 

IBITS 

JIBITS 

JIBITS 

IBITS 

DEVCBD, lOERR, IBKCNV, CITIES 
FILEINF 


Local  Variable  Declarations: 


INTEGER 

CMIL  INTEGER 

INTEGER*! 
CINT2  INTEGER*2 
INTEGER* 2 
CINT4  INTEGER 
CIBMV  INTEGER 
REAL 
LOGICAL 
CHARACTER* 120 


I ,  J ,  IREC  ,  lOS  ,  NLAT ,  LAT ,  LON,  IPRINT ,  IXM , 
LATMIN, LONMIN, I ECO 
IFLD (6,6), IFLDV 
JBK (6,6) , IWTR (6,6) 

JBK (6,6), IWTR (6,6) 
lALT (6,6) 

JBK (6,6), IWTR (6,6), lALT (6,6) 

lERR 

YLONG 

FLSCN,FLURB 

NFILE,URBNAM 


COMMON  Blocks: 


/DEVCNM/ , /DEVICE/ 


COMPLEX  FUNCTION  REFEST 

Argument  Declarations: 

REEL  -  REAL  Variable  -  Normal  reflection  coefficient 
INTRINSIC  and  EXTERNAL  Declarations: 

INTRINS IC  SQRT , CMPLX , ABS ,  MAX 

Local  Variable  Declarations: 

REAL  N,K,DUM 

COMMON  Blocks:  /CONSTN/ 


scene 
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DOUBLE  PRECISION  FUNCTION  REFRAC 


Argijment  Declarations: 

PRESS  -  REAL  Variable  -  Atmospheric  pressure  (mb) 

TEMP  -  REAL  Variable  -  Atmospheric  temperature  (K) 

WH20  -  REAL  Variable  -  Volume  mixing  ratio,  water  vapor _ (ppm) 

V\rc02  -  REAL  Variable  -  Volime  mixing  ratio,  carbon  dioxide  (ppm) 

W02  -  REAL  Variable  -  Volume  mixing  ratio,  oxygen  (ppm) 

WL  -  REAL  Variable  -  Wavelength  (pm) 

REARTH  -  DOUBLE  PRECISION  Variable  -  Radius  of  the  earth  (km) 

ALT  -  REAL  Variable  -  Altitude  (km) 

If  refractivity  is  desired,  input  ALT  =  0.0;  otherwise 
modified  refractivity  is  returned. 

INTRINSIC  and  EXTERNAL  Declarations; 


REAL 

INTRINSIC 

EXTERNAL 


SUPK, PFR 
EXP,DBLE, SQRT 
SUPK , PFR , REFRBD 


Local  Variable  Declarations : 


INTEGER 

REAL 

DOUBLE  PRECISION 


L,N2 

PH20 , PC02 , P02 , PNRT, V, WCD, CT, CA, SA, GA, PHI , XIF , 
PRFL , GAMMA , GAMNR , FREQ 
N0(3) ,RTOT,DISP,EPS,S,DENSO (3) ,DENS 


COMMON  Blocks:  /MMWREF/ 


REAL  FUNCTION  RELHUM 


Argument  Declarations : 

CH20  -  REAL  Variable  -  Water  vapor  concentration  (ppmv) 

PRESS  -  REAL  Variable  -  Pressure  (mb) 

TEMP  -  REAL  Variable  -  Temperature  (K) 

ITYPE  -  INTEGER  Variable  -  Type  of  saturation 

ITYPE  =  0  implies  water  vapor 

ITYPE  =  1  implies  ice 

INTRINSIC  and  EXTERNAL  Declarations; 

REAL  SATUR 

EXTERNAL  SATUR 

Local  Variable  Declarations: 

real  R,RW,EW, ratio, WH20,WAIR 

COMMON  Blocks :  None 
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SUBROUTINE  RESOLV 


Argument  Declarations: 


VI 

VF 

DVI 

IDV 


DWL 

DV 

IV 

ITYPE 


REAL  Variable  (Input)  -  Initial  wavenumber  {cm“^) 

REAL  Variable  ( Input /Output )  -  Final  wavenumber  (cm"^) 

REAL  Variable  (Input)  -  Initial  wavenumber  increment  (cm'^) 
INTEGER  Variable  (Input)  ~  Wavenumber /wavelength  index 
IDV  =  1  implies  wavenumber  (cm”^) 

IDV  =  2  implies  wavelength  (micron) 

IDV  =  3  implies  frequency  (GHz) 

REAL  Variable  (Input)  -  Wavelength  increment  (micron) 

REAL  Variable  (Output)  -  Wavenumber  increment  (cm"^) 

INTEGER  Variable  ( Input /Output )  -  Index  for  VF 
INTEGER  Variable  (Input)  -  Calculation  index 

ITYPE  =  1  implies  that  DV  and  IV  are  calculated  for  VF 
ITYPE  =  2  implies  that  DV  and  VF  are  calculated  for  IV 
(See  note  below) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL  DVINCR 

EXTERNAL  DVINCR 

Local  Variable  Declarations: 


INTEGER  I 

REAL  VX,DVP 

COMMON  Blocks :  None 
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SUBROUTINE  RSHINE 


Argument  Declarations: 


IFSCR 

DV 

SOLX 

XLUN 

XS 

51 

52 

53 

54 

55 

56 

SOLXM 

XLNXM 

NAZSMX 

V 

IGEOM 


INTEGER  Variable  (Input)  -  File  number  for  skyshine  solar  path  data 
If  IFSCR  =  0,  file  is  not  OPEN 

REAL  Variable  (Input)  -  Wavenumber  increment  (cm“^)  ^  ^ 

REAL  Variable  (Input)  -  Exoatmospheric  solar  irradiance  (W/cm^/cm  ) 
REAL  Variable  (Input)  -  Exoatmospheric  lunar  irradiance  (W/cm  /cm  ) 
DOUBLE  PRECISION  Vector  (Len  =  Unspecified^  (Input)  -  Optical^depth 
REAL  Vector  (Len  =  Unspecified)  (Input) 

Lorentz  halfwidth  times  line  density 
REAL  Vector  (Len  =  Unspecified)  (Input) 

Doppler  halfwidth  times  line  density 
REAL  Vector  (Len  =  Unspecified)  (Input) 


line  density 
REAL  Vector  (Len 
the  continuum 
REAL  Vector  ( Len 
scattering 
REAL  Vector  (Len 


Unspecified) 

Unspecified) 


( Input )  - 
( Input )  - 
( Input )  - 


Summing  variable  for 
Summing  variable  for 
Summing  variable  for 
Summing  variable  for 
Summing  variable  for 
Summing  variable  for 


- -  Unspecified)  ,  .  . 

(Lorentz  halfwidth) ^  times  line  density 
REAL  Array  (Dim  =  NAZSMX  x  Unspecified)  (Output)  -  Apparent 
solar  radiance  as  a  function  of  azimuth  (W/cmVcm’  ) 

REAL  Array  (Dim  =  NAZSMX  x  Unspecified)  (Output)  ■  Apparent 
lunar  radiance  as  a  function  of  azimuth  (W/cm  /cm  ) 
INTEGER  Variable  (Input)  -  Maximum  nxmber  of  azimuths 
REAL  Variable  (Input)  -  Wavenumber  (cm'^) 

INTEGER  Variable  (Input)  -  Geometry  number 


PARAMETER  Declarations: 


INTEGER 


PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX , MLMX2 , ISMX , NBAND , NZSMAX , NWLAER , NWLCLD , NANG , 
MAXLAT , MAXLON , NAZMAX , NASMAX , NMATL , NGMAX , NVSMAX , 
ISTMAX, MOLMAX 
(MLMAX=140,  MLMX2=2*MLMAX) 

(M0LMAX=26,  ISMX=M0LMAX+8,  NBAND=16,  NMATL=28) 
(NAZMAX=30,  NASMAX=15,  NZSMAX=4) 

(NWLAER=47,  NWLCLD=79,  NANG=65) 

(NGMAX=15,  NVSMAX=20,  MAXLAT=3,  MAXLON=l) 
(ISTMAX=30000) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

CHARACTER* 7 2 

INTRINSIC 

EXTERNAL 


RADTRX 

lOERR 

DPROD 


SOLRAD , RADTRX , BNTPTH , ARSLBD , PTHTAU , MLSCAT , 
BCKGND, TERMPR, lOERR 


Local  Variable  Declarations : 


INTEGER 

REAL 


DOUBLE  PRECISION 


K,L,M,KK,LL,KL,MM,IOS,LPS,LPL,ITYPl,ISTORl, 
IGEOMP , HASP , NSHM 

SIP (ISMX) ,S2P(ISMX) ,S3P(ISMX) ,S4P(ISMX) ,RADSDM, 
S5  P ( ISMX) , RADSCM, RDSCML , DRSTOR, DSTORS , DSTORL , 
RTHSH , RSLSH , DUMSUM ( 6 , NMATL ) , RDSCV , CC , SOLAZP , 
HSKYSH , HSCATT , PROJSH ( 6 , 1 ) , PHISHD ( 1 ) , AZS , AZL , 
PROJLH(6,l) ,S6P(ISMX) ,SHDWS(1) ,SHDWL(1) 

XSP ( ISMX) , TAUL (MLMX2 ) , TAULA (MLMX2 ) , DELTAU , 

PLKl , PLK2 , SCTl S , SCTIL , SCT3  S , SCT3L 


COMMON  Bloclcs: 


/AEROSL/ , /ARSLSC/ , /CONSTN/ , /CURGDA/ , /CURGDB/ , /CURGDC/ , 
/FLAGS/  , /HEADER/ , /INITAL/ , /INTSTO/ , /LYRSTO/ , /OPTDEP/ , 
/PATH2/  , /PATH2A/ , /PATH2B/ , /PATH2C/ , /PATH2D/ , /PATH4/ 
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REAL  FUNCTION  SATUR 

Argument  Declarations: 

PRESS  -  REAL  Variable  -  Pressure  (mb) 

TEMP  ~  REAL  Variable  -  Temperature  (K) 

ITYPE  -  INTEGER  Variable  -  Type  of  saturation 
ITYPE  =  0  implies  water  vapor 
ITYPE  =  1  implies  ice 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  DELE , REAL , LOGIC 

Local  Variable  Declarations: 

REAL  TO , TS , EIO , EWS , EX 

DOUBLE  PRECISION  DTEMP 

COMMON  Blocks :  /CONSTN/ 


REAL  FUNCTION  SCINTL 

Argument  Declarations: 

VARX  -  REAL  Variable  -  Path-averaged  turbulence  (km) 

V  -  REAL  Variable  -  Wavenumber  (cm“^) 

APERT  -  REAL  Variable  -  Aperture  diameter  (m) 

Z  -  Real  Variable  -  Distance  over  which  turbulence  is  averaged  (km) 

PARAMETER  Declarations: 

INTEGER  NPTS,MPTS 

PARAMETER  (NPTS=10,  MPTS=14) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

INTRINSIC  MAX , MIN , EXP , SQRT 

EXTERNAL  PROFAC , XTERP 

Local  Variable  Declarations: 

INTEGER  I , KEY , KEYP , ITRPl 

REAL  VAR, VAREX,CL0 (NPTS) ,DNORM(MPTS) ,D0,XK,VAR0, 

THETA ( NPTS , MPTS ) , FACD , Tl , T2 , THETAD 

COMMON  Blocks:  /CONSTN/ 
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SUBROUTINE  SCNRIO 


Argument  Declarations : 

LENP  -  INTEGER  Variable  (Input /Output)  -  Index  for  desired  ray  path  in  the 
case  of  any  ambiguity 

LENP  =  0  implies  the  shorter  path 
LENP  =  1  implies  the  longer  path 
IGEOM  -  INTEGER  Variable  (Input)  -  Geometry  number 
lERR  -  INTEGER  Variable  (Output)  -  Error  index 

ISWATM  -  INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  (Input/Output)  -  Switch 
for  model  atmospheres 

PARAMETER  Declarations : 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX, MLMX2 , ISMX, NAZMAX, NASMAX, ISTMAX, MLIDMK, 
NGMAX , NZSMAX , NL , MAXLAT , MAXLON , NVSMAX , MOLMAX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  MLMX2=2*MLMAX) 

(MOLMAX=26,  ISMX=M0LMAX+8 ,  MLIDMX=45) 
(ISTMAX=30000) 

(NL=50) 

(MAXLAT=3,  MAXL0N=1,  NVSMAX=20) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  REAL , MAX , MIN , ABS , DBLE , TAN , COS , ACOS , SIN , MOD 

EXTERNAL  GEOM , RAYPTH , CALEND , HOREQU , EQUECL , ECLGAL , HORI ZN , 

TURBUL , SPTRIG , DEFBCK , INTR2D , ATMSBD , MOLPBD , 
SPiNGEO 


Local  Variable  Declarations: 

INTEGER  KL , K , L , LM , IDAYX , LENB , JBKGD , LTERM , ITP , KK , LL , 

KLMAXP , LB , IHORSB , KSW, NLOCAT , MM , LINIT , I PRINT , 
MLAT,MLON, ITYPO 

REAL  DYEAR, PROS, RHOS, BROS, SRMAX,THD,BETMAX, PRIOR, 

PRISR , XLEQUT , BEQUT , AZP , SOLAZP , RSOLAR , 
RLUNAR,ELP,RSEND,XLT,AZDUM (NAZMAX) ,MHP 

DOUBLE  PRECISION  PHITX 

COMMON  Blocks :  /ATMDAT/ , /BCKDAT/ , /CONSTN/ , /FLAGS/  , /READER/ , 

/ INITAL / , /MOLCON/ , /MOLECP / , / PATRl /  , / PATHIA/ , 
/PATR4/  , /PATR5A/ , /PATR5B/ , /PATR5C/ , /PATH5D/ 
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REAL  FUNCTION  SEAICE 


Argument  Declarations: 

XLAT  -  REAL  Variable  -  Latitude  (deg) 

XLON  -  REAL  Variable  -  Longitude  (deg) 

IMONTH  -  INTEGER  Variable  -  Month  of  year 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  MOD, INT, MAX, MIN 

EXTERNAL  SICEBD 

Local  Variable  Declarations: 

INTEGER  L , LAT , LON , IM , IX 

REAL  PRICE (12), YLONG 

COMMON  Blocks:  /SICEDT/ 


REAL  FUNCTION  SEATMP 


Argument  Declarations: 

MONTH  -  INTEGER  Variable  -  Month  of  year  (MONTH  =  1  implies  Jan) 
XLAT  -  REAL  Variable  -  Latitude  (+  North,  -  South)  (deg) 

XLONG  -  REAL  Variable  -  Longitude  (+  East,  -  West)  (deg) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  INT, MAX, MIN 

EXTERNAL  OCNTBD 

Local  Variable  Declarations: 

INTEGER  ISEASN ( 12 ) , ILAT , ILON 

REAL  YLONG 

COMMON  Blocks:  /TMPOCN/ 


COMPLEX  FUNCTION  SEAWTR 


Argument  Declarations: 

V  -  REAL  Variable  -  Wavenumber  (cm'^) 

TEMP  -  REAL  Variable  -  Temperature  (K) 

Local  Variable  Declarations: 


INTEGER 

REAL 

COMPLEX 


N,M 

T0(4) ,WAVE,DEL1(4) , DELB, SIGl { 4 ) , SIGB, EP, A, FREQ 
IX,  JX 


COMMON  Blocks :  None 
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SUBROUTINE  SETALT 


Argument  Declarations: 


ZP 

NLP 

EXTRA 

NXTRA 

HRI 

HTI 

NGEOM 

HBCK 

ICLDRN 

ZCLD 

CLDBS 

CLDTP 

HPRF 

ZBCK 

TBCK 

LBCK 

NBCKZ 

MT 

MLMX 

NLAT 

NLON 


(Len 


=  Unspecified) 
( Input /Output ) 


(Input /Output)  -  Basic  altitude 


-  Number  of  points  in  basic  grid 
(Input /Output)  -  Extra  altitudes  in 

-  Dimension  of  EXTRA 

(Input)  -  Observer  altitude  (km) 
(Input)  -  Source  altitude  (km) 


(km) 


REAL  Vector 
grid  (km) 

INTEGER  Variable 
REAL  Vector  (Len  =  Unspecified) 
altitude  grid  (km) 

INTEGER  Variable  ( Input /Output ) 

REAL  Vector  (Len  =  Unspecified) 

REAL  Vector  (Len  =  Unspecified)  .  . 

INTEGER  Variable  (Input)  Number  of  geometry  conditions 
REAL  Variable  (Input)  -  Terrain  altitude  (km) 

INTEGER  Variable  (Input)  -  Cloud  index 

REAL  Vector  (Len  =  Unspecified)  (Input)  “  Cloud  altitude  grid 
REAL  Variable  (Input)  -  Cloud  base  altitude  (km) 

REAL  Variable  (Input)  -  Cloud  top  altitude  (km)  _ 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Beginning  and  ending 
altitudes  for  background  (km) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Background  altitude 
points  (km) 

REAL  Array  (Dim  =  MLMX  x  MAXLAT  x  Unspecified)  (Output)  - 
Background  temperatures  (K) 

INTEGER  Vector  (Len  =  Unspecified)  (Output)  -  Background 
altitude  indices  (km) 

INTEGER  Variable  (Output)  -  Number  of  background  altitude  points 
INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  (Input)  -  Model 
temperature  profile  index 

INTEGER  Variable  (Input)  -  Maximum  number  of  altitude  layers  for 
TBCK 

INTEGER  Variable  (Input)  -  Nxmnber  of  latitudes 
INTEGER  Variable  (Input)  -  Number  of  longitudes 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX ,  I SMX ,  NASMAX ,  NL ,  MAXLAT ,  MAXLON ,  NGMAX ,  NLUPR , 
NTEXO,MOLMAX 

(MLMAX=140,  NASMAX=15,  NL=:50) 

(MOLMAX=2  6 ,  ISMX=MOLMAX+8 ) 

(MAXLAT=3,  MAXL0N=1,  NGMAX=15,  NLUPR=8) 
(NTEX0=11) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


XTERP 

MAX , MIN , ABS , REAL , DBLE 
XTERP , UPPRBD , ATMSBD 


Local  Variable  Declarations: 


INTEGER 

REAL 


I , J , L , NLX, KK, LL , ITRPO , MTX 
HI , ZPX 


COMMON  Blocks: 


/ATMDAT/ , /CONSTN/ , /INITAL/ , /UPRATM/ , /USERDF/ 
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SUBROUTINE  SETBCK 


Argument  Declarations: 

ITYPE  -  INTEGER  Variable  (Input)  -  Scene  index 

Refer  to  User  Reference  Manual  for  definition 
SNOW  -  REAL  Variable  (Input)  -  Percentage  snow  (%) 

ICE  -  REAL  Variable  (Input)  -  Percentage  ice  (%) 

WATER  -  REAL  Variable  (Input)  -  Percentage  water  (%) 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NMATL ,  NSCEN ,  NAZMAX ,  NASMAX ,  NGMAX ,  NZ  SMAX ,  MAXLAT , 
MAXLON , I SMX , NVSMAX , NL , MOLMAX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MAXLAT=3,  MAXLON=l,  NVSMAX=20) 

( MOLMAX=  2  6,  I SMX=MOLMAX+  8 ) 

(NMATL=28,  NSCEN=35,  NL=50) 


INTRINSIC  and  EXTERNAL  Declarations: 


EXTERNAL  BKGDBD, SCENBD, MODBCK , INTR2D, ATMSBD 

Local  Variable  Declarations: 


INTEGER  I , ISTORE , KK , LL 

REAL  FRCTN , TAIRP , PTHFAC ( MAXLAT , MAXLON ) 


COMMON  Blocks: 


/ATMDAT/ , /BACKGD/ , /HEADER/ , /SCENES/ 


SUBROUTINE  SETFLG 


Argument 

Declarations : 

I SOLAR 

-  INTEGER 

Variable 

( Input ) 

I LUNAR 

-  INTEGER 

Variable 

( Input ) 

lEPHEM 

-  INTEGER 

Variable 

( Input ) 

ISMPLS 

-  INTEGER 

Variable 

( Input ) 

ISMPLL 

-  INTEGER 

Variable 

( Input ) 

IVSA 

-  INTEGER 

Variable 

( Input ) 

IFATM 

-  INTEGER 

Variable 

( Input ) 

IFBCK 

-  INTEGER 

Variable 

( Input ) 

IFBSW 

-  INTEGER 

Variable 

( Input ) 

IGMSW 

-  INTEGER 

Variable 

( Input ) 

IFMSC 

-  INTEGER 

Variable 

( Input ) 

PARAMETER  Declarations: 

INTEGER  NGMAX 

PARAMETER  (NGMAX=15) 

Local  Variable  Declarations: 

INTEGER  I 


-  Solar  index 

-  Lunar  index 

-  Ephemeris  index 

-  Type  of  solar  calculation 

-  Type  of  lunar  calculation 

-  Vertical  structure  index 

-  Atmosphere  file  number 
”  Background  file  number 

-  Fore/Background  altitude  switch 

-  Geometry  type  index 

“  Multiple  scattering  index 


COMMON  Blocks: 


/FLAGS/ 


SUBROUTINE  SETUP 


Argument  Declarations : 

LI  “  INTEGER  Variable  (Output)  -  Location  of  start  of  ray  in 

altitude  array  ^ 

LSH  INTEGER  Variable  (Output)  -  Location  of  termination  of 

ray  in  altitude  array 

PHISHR  -  DOUBLE  PRECISION  Variable  (Output)  -  Initial  elevation 
angle  for  ray  (rad) 

ITERM  -  INTEGER  Variable  (Output)  -  Terminator  index ^ 

Refer  to  User  Reference  Manual  for  definition 
LBKGD  “  INTEGER  Variable  (Input)  '  Location  of  background 
altitude  in  altitude  array 

LTRGT  -  INTEGER  Variable  (Input)  -  Location  of  target  altitude 
in  altitude  array 

PHISH  -  REAL  Variable  (Input)  -  Initial  elevation  angle  for  ray  (deg) 
PHIHOR  -  REAL  Variable  (Input)  -  Elevation  angle  to  horizon  (deg) 

IBKGD  -  INTEGER  Variable  (Input)  -  Background  index 

Refer  to  User  Reference  Manual  for  definition^ 

ML  -  INTEGER  Variable  (Input)  -  Number  of  altitudes  in  altitude  array 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  DBLE 

COMMON  Blocks:  /CONSTN/ 


REAL  FUNCTION  SHADOW 


Argument  Declarations: 

PHIl  -  REAL  Variable  -  Incident  elevation  angle  (deg) 

PHI2  -  REAL  Variable  -  Reflected  elevation  angle  (deg) 

THETA  -  REAL  Variable  -  Azimuth  (deg) 

SLOPE  -  REAL  Variable  -  Mean  slope  of  the  roughness 

INTRINSIC  and  EXTERNAL  Declarations: 

DOUBLE  PRECISION  DERF 

INTRINSIC  SQRT , EXP , COS , SIN , ABS , REAL , DBLE , MOD , MAX 

EXTERNAL  DERF 

Local  Variable  Declarations: 

DOUBLE  PRECISION  A1 , A2 , B1 , B2 , XI , X2 , SLOPEl , SL0PE2 , DUM, THETP , DUMM 
COMMON  Blocks:  /CONSTN/ 
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SUBROUTINE  SHNGEO 


Argument  Declarations: 


SRC 

SCTPT 

ELEV 

AZIM 

XLAT 

XLON 

IZL 

LSRC 

SCTANG 

NDXSR 

NTBSR 

IZLSH 

DRZLSH 

ISTMAX 

SRCEV 

lAZREF 

SOLAZ 

SOLFAC 

IBKGD 

NLAT 

NLON 

ISWATM 

NSOLFC 


DOUBLE  PRECISION  Vector  (Len  =  Unspecified)  (Input)  ~  Vector  to 
sun/moon  from  earth  center 

DOUBLE  PRECISION  Vector  (Len  =  Unspecified)  (Input)  -  Vector  to 
scattering  point  from  earth  center 
REAL  Variable  (Input)  -  Elevation  angle  of  ray  at  scattering 
point  (deg) 

REAL  Variable  (Input)  -  Azimuth  angle  of  ray  at  scattering  point 
(deg) 

REAL  Variable  (Input)  -  Latitude  of  scattering  point  (deg) 

REAL  Variable  (Input)  -  Longitude  of  scattering  point  (deg) 
INTEGER  Variable  (Input)  -  Altitude  index  of  scattering  point 
INTEGER  Variable  (Input)  -  Altitude  index  of  sun/moon 
REAL  Variable  (Output)  -  Scattering  angle  (deg) 

INTEGER  Variable  (Input)  -  Index  for  starting  position  of  a 
given  ray  in  the  IZLSH  and  DRZLSH  vectors 
INTEGER  Variable  (Output)  -  Number  of  elements  in  the 
IZLSH  and  DRZLSH  vectors  for  each  ray 
INTEGER  Vector  (Len  =  Unspecified)  (Output)  -  Altitude  indices 
for  the  ray 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Path  length 
segments  for  the  ray  (km) 

INTEGER  Variable  (Input)  -  Dimension  of  IZLSH  and  DRZLSH 
REAL  Variable  (Output)  -  Elevation  angle  of  source  at  the 
background  (deg) 

INTEGER  Variable  (Input)  -  Azimuth  reference  index 
REAL  Variable  (Input)  -  Solar  azimuth  (deg) 

REAL  Array  (Dim  =  MAXLAT  x  MAXLON  x  Unspecified)  (Output)  - 
Proportionality  factor  for  the  ray 
INTEGER  Variable  (Input)  -  Background  index 
INTEGER  Variable  (Input)  -  Number  of  latitudes 
INTEGER  Variable  (Input)  -  Number  of  longitudes 
INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  ( Input /Output )  - 

Switch  for  model  atmospheres 
INTEGER  Array  (Dim  =  2  x  Unspecified)  ( Input /Output )  - 
Array  limits  for  non-zero  values  of  SOLFAC 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX ,  MLMX2  ,  I SMX ,  MAXLAT ,  MAXLON ,  NGMAX ,  NL ,  MOLMAX 
(MLMAX=140,  MLMX2=2^MLMAX) 

(MAXLAT=3,  MAXL0N=1,  NGMAX=15,  NL=50) 

( MOLMAX^  2  6,  I SMX=MOLMAX+  8 ) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  COS , SIN , REAL , DBLE , SQRT , ACOS , AS IN , MAX , MIN 

EXTERNAL  RAYPTH, HOREQU, SPTRIG, INTR2D, ATMSBD 

Local  Variable  Declarations: 

INTEGER  I , LI , L2 , LT , LTM , MLP , I SRC , LENS , ITDUM ( MLMX2 ) , KK , LL 

REAL  R (MLMX2 ) , PHI (MLMX2 ) , THETA (MLMX2 ) , ALPHA, DELTA, 

XLOS ( 3 ) , AZP , PTHLAT , PTHLON , BETA , HTNGT 
DOUBLE  PRECISION  SOLE , DRX, RX , SNSEL , CS SCAT , DSC 

COMMON  Blocks :  /ATMDAT/ , /CONSTN/ , /INITAL/ 
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SUBROUTINE  SKYNOI 


Argiiment  Declarations: 


Z 

P 

T 

CMOL 

ZM 

PM 

TM 

CMOLM 

ZP 

PP 

TP 

CMOLP 

CN2 

CT2 

CSM2 

CSA2 

XLO 

SKYFAC 


HB 


REAL  Variable  (Input)  -  Altitude  (km) 

REAL  Variable  (Input)  -  Pressure  at  Z  (mb) 

REAL  Variable  (Input)  -  Temperature  at  Z  (K) 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Molecular  concentrations 

at  Z  (ppm)  ^  _ 

REAL  Variable  (Input)  -  Altitude  just  below  Z  (km) 

REAL  Variable  (Input)  -  Pressure  at  ZM  (mb) 

REAL  Variable  (Input)  -  Temperature  at  ZM  (K) 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Molecular  concentrations 

at  ZM  (ppm)  ^  ^ 

REAL  Variable  (Input)  ~  Altitude  just  above  Z  (km) 

REAL  Variable  (Input)  -  Pressure  at  ZP  (mb) 

REAL  Variable  (Input)  -  Temperature  at  ZP  (K) 

REAL  Vector  (Len  =  Unspecified)  (Input)  Molecular  concentrations 

at  ZP  (ppm)  _2/3 

REAL  Variable  (Input)  -  Refractivity  structure  constant  (m^  )^ 

REAL  Variable  (Output)  -  Temperature  structure  constant  (K  /m  ) 
REAL  Variable  (Output)  -  Molecular  scatter  structure  constant 
(3^ivided  by  the  molecular  scatter  coefficient  scjuared  (m  ) 

REAL  Variable  (Output)  -  Aerosol  scatter  structure  constant 
divided  by  the  aerosol  scatter  coefficient  squared  (m“  ) 

REAL  Variable  (Output)  -  Turbulence  scale  length  (m) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Factor  used  in 
evaluating  sky  noise 

1  Thermal  sky  noise 

2  -  Molecular  scatter 

3  -  Aerosol  scatter 

REAL  Variable  (Input)  -  Terrain  altitude  (km) 


INTRINSIC  and  EXTERNAL  Declarations: 

DOUBLE  PRECISION  REFRAC 

INTRINSIC  MAX , ABS , LOG , SQRT , REAL 

EXTERNAL  REFRAC 

Local  Variable  Declarations: 


INTEGER 

REAL 


K 


DNDT , DNDP , DZ , DZl , DZ2 , DTDZ , DPDZ , DQDZ , DNDQDZ , 
DNDHDZ , DNDQ ( 3 ) , DT , DSMDN , DSADN 
DOUBLE  PRECISION  AN,XN1,XN2 


COMMON  Blocks; 


/CONSTN/ 
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REAL  FUNCTION  SLPOS 

Argument  Declarations: 

XLATO  -  REAL  Variable  -  Reference  latitude  (in  degrees  and  fractions 
of  degrees,  is  north) 

XLONO  -  REAL  Variable  -  Reference  longitude  (in  degrees  and  fractions 
of  degrees,  is  east) 

XLAT  REAL  Variable  -  Latitude  (in  degrees  and  fractions  of 

degrees,  is  north) 

XLON  -  REAL  Variable  -  Longitude  (in  degrees  and  fractions  of 
degrees,  is  east) 

SOLEV  -  REAL  Variable  -  Default  (geometric)  value  of  solar  elevation  (deg) 

LBKGD  -  INTEGER  Variable  -  Background  altitude  index 

LSOLAR  -  INTEGER  Variable  -  Solar/lunar  altitude  index 

NLAT  -  INTEGER  Variable  -  Number  of  latitudes 

NLON  -  INTEGER  Variable  -  Number  of  longitudes 

PARAMETER  Declarations : 

INTEGER  MLMAX , MLMX2 

PARAMETER  (MLMAX=140,  MLMX2=2 *MLMAX) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  COS, ACOS, SIN, REAL, DBLE 

EXTERNAL  HORI ZN , GEOM 

Local  Variable  Declarations: 

INTEGER  IZ (MLMX2) , LENP, IBKGD, lERR, KL, ITPGM, IPRINT, 

LBKGDO , LSOLRO , MLAT , MLON 

REAL  SRRS , BETAS , PHIl , PHI 2 , SRMAX , BETMAX , RHOS , BHOS , 

PH0S,R(MLMX2) , PHI (MLMX2) , THETA (MLMX2 ) , 

HTNGT,HSEND 

COMMON  Blocks :  /CONSTN/ 


REAL  FUNCTION  SLRCNT 

Argument  Declarations ; 

SOLDIS  -  REAL  Variable  -  Normalized  solar  distance 

INTRINSIC  and  EXTERNAL  Declarations: 

CXX  REAL  SOLAR 

CXX  INTRINSIC  REAL , DPROD 

CXX  EXTERNAL  SOLAR 

EXTERNAL  SOLRBD 

Local  Variable  Declarations: 

CXX  INTEGER  I 

REAL  V,DV,DUM 

CXX  DOUBLE  PRECISION  SUM 

COMMON  Blocks:  /SOLIRl/ 
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REAL  FUNCTION  SLUNAR 


C5 


Argument  Declarations: 

V  -  REAL  Variable  -  Wavenumber  (cm'^) 

DV  -  REAL  Variable  -  Wavenimtiber  increment  {cm'^) 

PHLUNR  -  REAL  Variable  -  Phase  of  the  moon  (deg) 

SOLDIS  -  REAL  Variable  -  Normalized  solar  distance  ^ 

SOLDIS  =1.0  implies  a  solar  constant  of  1353  W/m 
XLUNDS  -  REAL  Variable  -  Normalized  lunar  distance 

PARAMETER  Declarations: 

INTEGER  NEL , NALB 

PARAMETER  (NALB=30,  NEL=37) 

INTRINSIC  and  EXTERNAL  Declarations: 

real  XTERP , SOLAR 

INTRINSIC  COS, SIN 

EXTERNAL  XTERP , SOLAR 


Local  Variable  Declarations: 


INTEGER 

REAL 


ITRPO 

ALBED(NALB) ,WLL(NALB) ,CORREC(NEL) ,ELONG(NEL) , 
THETA , S  PHERE , ERTHMN , RMOON , WL 


COMMON  Blocks :  /CONSTN/ 
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SUBROUTINE  SMPCAL 


Argument  Declarations: 


ML 

MLMX2 

NL 

ITL 

DRL 

SOLFAC 

NSOLFC 

RADINT 

RADSMP 

DV 


INTEGER  Variable  (Input)  -  Number  of  lines-of-sight 
INTEGER  Variable  (Input)  -  Maximum  DIMENSION  of  several  arrays 
INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Number  of  altitude 
layers  for  each  line-of-sight 

INTEGER  Array  (Dim  =  MLMX2  x  Unspecified)  (Input)  -  Altitude  index 
of  each  path 

REAL  Array  (Dim  =  MLMX2  x  Unspecified)  (Input)  -  Path  increments 
of  each  path  length  (km) 

REAL  Array  (Dim  =  MAXLAT  x  MAXLON  x  MLMX2  x  Unspecified)  (Input)  - 
Proportionality  factor  for  multiple  atmospheres 
INTEGER  Array  (Dim  =  2  x  2  x  Unspecified)  (Input)  -  Limits 
for  the  non-zero  elements  of  SOLFAC 
REAL  Variable  (Input)  -  Initial  ( exoatmospheric)  irradiance 
(W/cm^/cm'^) 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Irradiance  at 
the  various  altitudes  (W/cm^/cm"^) 

REAL  Variable  (Input)  -  Wavenumber  increment  (cm"^) 


PARAMETER  Declarations: 


INTEGER  MLMAX , I SMX , MAXLAT , MAXLON , MOLMAX 

PARAMETER  (MLMAX=140,  MAXLAT=3 ,  MAXL0N=1) 

PARAMETER  ( MOLMAX^  2  6,  I SMX=M0LMAX+  8 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL 

EXTERNAL  PTHTAU 

Local  Variable  Declarations: 

INTEGER  K , L , KL , ITYPE , I STORE , MMl 

REAL  Sl(ISMX) ,S2(ISMX) ,S3(ISMX) ,S4(ISMX) ,S5(ISMX) , 

S6 (ISMX) ,TAUX 

DOUBLE  PRECISION  XS ( I SMX ), TAUL ( MLMAX ), TAULA ( MLMAX ) 

LOGICAL  FLTRN 

COMMON  Blocks:  None 


REAL  FUNCTION  SNOWEX 


0 


Argument  Declarations: 

SRATE  -  REAL  Variable  -  Snow  rate,  expressed  in  terms  of  water  content 
(mm/hr) 

TEMP  -  REAL  Variable  -  Temperature  (K) 

ITYPE  -  INTEGER  Variable  -  Type  of  snow 
ITYPE  =  0  implies  no  snow 
ITYPE  =  1  implies  needle  crystals 
ITYPE  =  2  implies  plain  dendritic  crystals 
ITYPE  =  3  implies  spatial  dendritic  crystals 
ITYPE  =  4  implies  powder  snow 
ITYPE  =  5  implies  crystal  with  droplet 
ITYPE  =  6  implies  graupel 

PARAMETER  Declarations: 

INTEGER  NBIN 

PARAMETER  {NBIN=21) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  MAX , MIN , INT , REAL , SQRT , ABS , EXP 

EXTERNAL  SNOWED 

Local  Variable  Declarations: 

INTEGER  I , ITMP , ITMPl , ICRYS 

real  XTMP , FACTMP , RHOW , QEXT , DUM , R32 , DREFF , R , DCRYS , 

VOL , AREA , ARTOT , VOLTOT , RC , AL PHA , GAMMA , FRAD , VEL 

COMMON  Blocks:  /CONSTN/ , /SNWDAT/ 


SUBROUTINE  SNOWSP 


Argument  Declarations: 


WL  -  REAL  Variable  (Input)  -  Wavelength  (pm) 

TEMP  -  REAL  Variable  (Input)  -  Temperature  (K) 

ISNOW  -  INTEGER  Variable  (Input)  -  Snow  index 

SNABS  -  REAL  Variable  (Output)  -  Normalized  absorption  coefficient 

SNSCT  -  REAL  Variable  (Output)  -  Normalized  scattering  coefficient 


PARAMETER  Declarations: 


INTEGER  NWLCLD 

parameter  ( NWLCLD=7  9 ) 

INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  MIN 

EXTERNAL  PROFAC , RAINED 


Local  Variable  Declarations: 

INTEGER  KEYWL , KEYWLP , KTP , KTPP 

real  FACWL,DUM1,DUM2,FACTP 


COMMON  Blocks : 


/RAINWL/ 
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SUBROUTINE  SOIL 


Argument  Declarations: 

WATER  -  COMPLEX  Variable  (Input)  -  Dielectric  constant  of  water 

ICE  -  COMPLEX  Variable  (Input)  -  Dielectric  constant  of  ice 

MV  -  REAL  Variable  (Input)  -  Volumetric  moisture  in  vegetation 

EM  ~  COMPLEX  Variable  (Output)  -  Mean  dielectric  constant  of  soil 

DEL  -  REAL  Variable  (Output)  -  Standard  deviation  of  the  dielectric 
constant  of  soil 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  ABS , CMPLX 

EXTERNAL  EMISBD 

Local  Variable  Declarations: 

REAL  WP ,  GAM ,  WT ,  SAND ,  CLAY ,  P 

COMPLEX  EX , AIR , ROCK 

COMMON  Blocks:  None 


REAL  FUNCTION  SOLAR 

Argument  Declarations: 

V  -  REAL  Variable  -  Wavenumber  (cm‘^) 

DV  -  REAL  Variable  -  Wavenumber  increment  over  which  irradiance  is 

averaged  ( cm"^ ) 

SOLDIS  -  REAL  Variable  -  Solar  distance  (in  terms  of  mean  distance) 

INTRINSIC  and  EXTERNAL  Declarations: 

LOGICAL  EVEN 

INTRINSIC  REAL , INT , MOD 

EXTERNAL  SLRlBD, SLR2BD, SLR3BD, SLR4BD, SLR5BD, EVEN 

Local  Variable  Declarations: 

INTEGER  I , IV, IDV, IP 

REAL  P , WLO , VO , VP , WT , DVREF 

LOGICAL  EVN 

COMMON  Blocks:  /SOLIRl/, /S0LIR2/, /S0LIR3/, /S0LIR4/, /S0LIR5/ 
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SUBROUTINE  SOLBND 


Arg\ament  Declarations: 


Z 

FUO 

UO 

UD 

DD 

SD 

ALBS 

CLDP 


~  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Altitude  (lu)  vs. 
pressure  (10  nib  increment)  array 

-  REAL  Variable  (Input)  -  Exo-atmospheric  solar  flux  times  UO 

-  REAL  Variable  (Input)  -  Cosine  of  solar  zenith  angle 

-  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Upward  diffuse 

shortwave  flux  (W/m^)  at  each  layer  boundary 

-  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Downward  diffuse 

shortwave  flux  (W/m^)  at  each  layer  boundary 

-  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Downward  beam 

shortwave  flux  (W/m^)  at  each  layer  boundary 

-  REAL  Variable  (Input)  -  Solar  band  diffuse  reflectance 

-  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Cloud  cover  (%) 

1  -  Low  etage 

2  -  Middle  etage 

3  -  High  etage 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

INTRINSIC 

EXTERNAL 


BB03 

ABS, SQRT, EXP 

BB03 , BRBNBD, SRAT, CLDLYR, SRTLAY, SPROD, SWAT 


Local  Variable  Declarations: 


INTEGER 

REAL 


COMMON  Blocks : 


I, J, IB, IK 

R(9),T(9),US(9),DS(9),X(9),S(9) ,TRY(9) , 

AMAG(9) ,UP(9) ,UDB(10) ,DDB(10) ,SDB(10) ,G0, 

UOO , UOT , SO , B , BU , CLA , OMC , TAU , G , TAUB , WO , WOB , TT , 
TC , TCB , WC , WCB , DCL , RCL , TCL , UCL , A , DTCB , DTUB , TS 

/INITL/ , /OMATLW/ , /SWPARM/ 


SUBROUTINE  SOLRAD 

Argument  Declarations: 

TAUL  ”  DOUBLE  PRECISION  Vector  (Len  =  Unspecified)  (Input)  -  Transmittances 
at  each  point  along  path  (i.e.  ,  an  incremental  set  of  transmittance) 
L  -  INTEGER  Variable  (Input)  -  Layer  index  at  which  calculations  are 

to  be  made 

KL  -  INTEGER  Variable  (Input)  -  Altitude  index  at  which  calculations  are 

to  be  made 

SOLXM  -  REAL  Variable  (Output)  -  Apparent  solar  irradiance  as  a  function  of 
azimuth  (W/cm^/cm'^) 

RDSOLR  -  REAL  Variable  ( Input /Output )  -  Running  integral  along  path 

of  scattered  solar  and  lunar  radiation  (W/cm^/cm‘^) 

RDSVAR  -  REAL  Variable  ( Input /Output )  -  Running  integral  along  path 

of  variance  scattered  solar  and  lunar  radiation  (  (W/cm^/cm“^)  ^) 

XS  -  DOUBLE  PRECISION  Vector  (Len  =  Unspecified) 

( Input /Output )  “  Optical  depth 

51  -*  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Summing 

variable  for  Lorentz  halfwidth  times  line  density 

52  ~  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Summing 

variable  for  Doppler  halfwidth  times  line  density 

53  -  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Summing 

variable  for  line  density 

54  -  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Summing 

variable  for  the  continuum 

55  -  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Summing 

variable  for  scattering 

56  -  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Summing 

variable  for  (Lorentz  halfwidth) ^  times  line  density 
ANGLE  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Array  of 
scattering  angles  (deg) 

SCATTR  -  REAL  Array  (Dim  =  NANG  x  MAXLAT  x  Unspecified)  (Input)  - 
Angle  dependent  scattering  parameters,  including  the 
phase  function  and  albedo  (sr‘^) 

SCTVAR  -  REAL  Array  (Dim  =  NANG  x  MAXLAT  x  Unspecified)  (Input)  - 
Angle  dependent  variance  of  the  scattering  parameters, 
including  the  phase  function  and  albedo  (sr’^) 

NANG  -  INTEGER  Variable  (Input)  -  First  DIMENSION  of  ANGLE, 

SCATTR,  and  SCTVAR 

SOLX  -  REAL  Variable  (Input)  -  Exoatmospheric  spectral  solar 
irradiance  (W/cm^/cm'^) 

NSL  -  INTEGER  Variable  (Input)  -  Number  of  layers  in  solar  path 
ISL  -  INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Altitude 
indices  for  the  solar  paths 

DRSL  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Path  length 
increments  for  the  paths  (km) 

SCTANG  -  REAL  Variable  (Input)  -  Solar  scattering  angels  (deg) 

SOLYR  -  REAL  Array  (DIM  =  MLMX2  x  MAXLAT  x  Unspecified)  (Input)  -  Solar 
irradiance  at  each  altitude  (W/cm^/cm"^) 

NDXSL  -  INTEGER  Variable  (Input)  ”  Index  providing  the  starting 

point  the  ISL  and  DRSL  arrays  for  the  appropriate  paths 
FLSLR  LOGICAL  Variable  (Input)  -  Switch  for  solar  calculations. 

FLSMP  -  LOGICAL  Variable  (Input)  -  Switch  for  type  of  calculations, 

LP  -  INTEGER  Variable  ( Input /Output )  -  Secondary  altitude  index 

SCTl  “  DOUBLE  PRECISION  Variable  ( Input /Output )  -  Scattering  term  storage 

SCT3  -  DOUBLE  PRECISION  Variable  ( Input /Output )  -  Scattering  variance 

storage 

DRKM  -  REAL  Variable  (Input)  -  Incremental  ranges  along  solar  scattered 
path  {'km) 

PTHFAC  -  REAL  Array  (Dim  =  MAXLAT  x  MAXLON  x  Unspecified)  (Input)  - 
Proportionality  factor  for  the  multiple  atmospheres 
NPTH  “  INTEGER  Array  (Dim  =  2  x  Unspecified)  (Input)  -  Limits  for 
non-zero  elements  of  PTHFAC 

DV  -  REAL  Variable  (Input)  -  Wavenumber  increment  (cm'^) 
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SUBROUTINE  SOLRAD  (continued) 


PARAMETER  Declarations : 

INTEGER  MLMAK , MLMX2 , MAXLAT , MAXLON 

PARAMETER  (MLMAX=140,  MLMX2=2*MLMAX,  MAXLAT=3 ,  MAXLON=l ) 

INTRINSIC  and  EXTERNAL  Declarations: 

real  XTERP , RADTRY 

INTRINSIC  REAL , DPROD , DBLE 

EXTERNAL  PTHTAU , XTERP , RADTRY 

Local  Variable  Declarations: 

INTEGER  KK, LL , MMl , ITRPl , ITYPE , ISTORE 

real  SCTDM2 , SCTDM4 , TAUSLR 

DOUBLE  PRECISION  TAUX (MLMX2 ) , TAUXA {MLMX2 ) , SCT2 , SCT4 , DELTAU , 

DDRKM 

LOGICAL  FLTRN 


COMMON  Blocks : 


None 


SUBROUTINE  SPCLYR 


Argument  Declarations: 


TSRF 

TSSL 

MT 

TLAYER 

ZLAYER 

NLAYER 

SPHLYR 

DENLYR 

HTCLYR 

FLINI 

PRESS 

CMOL 


REAL  Variable  (Input)  -  Initial  surface  temperature  (K) 

REAL  Variable  (Input)  -  Initial  sub-surface  temperature  (K) 

INTEGER  Variable  (Input)  -  Material  index 
REAL  Vector  (Len  =  0 : Unspecified)  ( Input /Output )  - 
Temperatures  in  conducting  subsurface  (K) 

REAL  Vector  (Len  =  0 : Unspecified)  (Input /Output )  -  Layer  depth  (m) 
INTEGER  Variable  (Input)  -  Number  of  layers 

REAL  Vector  (Len  =  0 lUnspecif ied)  (Output)  -  Specific  heat 
at  each  layer  (W-sec/gm/K) 

REAL  Vector  (Len  =  0 :Unspecif ied)  (Output)  -  Density 
at  each  layer  (gm/m^) 

REAL  Vector  (Len  =  0 : Unspecified)  (Output)  -  Conductance 
coefficient  at  each  layer  (W/m^/K) 

LOGICAL  Variable  (Input)  -  Initialization  flag 
REAL  Variable  (Input)  -  Atmospheric  pressure  (mb) 

REAL  Vector  (Len  =  0 : Unspecified)  (Input)  -  Atmospheric 
molecular  concentrations  (ppmv) 


PARAMETER  Declarations : 


INTEGER  NMATL ,  MAXLAT ,  MAXLON 

PARAMETER  (NMATL-28,  MAXLAT=3 ,  MAXL0N=1) 

INTRINSIC  and  EXTERNAL  Declarations: 

real  thcice, thcsnw, sphice, denwtr, thcwtr, sphwtr, 

DENAIR, THCAIR, SPHAIR 

INTRINSIC  MAX , MIN , SQRT , EXP , REAL , COS 

EXTERNAL  THCICE , THCSNW, SPHICE, DENWTR, THCWTR, SPHWTR, 

BKGDBD, DENAIR, THCAIR, SPHAIR 


Local  Variable  Declarations: 


INTEGER 

REAL 

COMMON  Blocks: 


K,  L 

PERIOD, DAMPD,DZ 
/BACKGD/ 


REAL  FUNCTION  SPHAIR 

Argument  Declarations: 

CH20  -  REAL  Variable  -  Water  vapor  content  (ppmV) 
INTRINSIC  and  EXTERNAL  Declarations:  None 
Local  Variable  Declarations:  None 
COMMON  Blocks :  None 
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REAL  FUNCTION  SPHICE 


Argument  Declarations : 

TEMP  -  REAL  Variable  -  Temperature  (K) 

PARAMETER  Declarations : 

INTEGER  NSPH 

PARAMETER  (NSPH=11) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

EXTERNAL  XTERP 

Local  Variable  Declarations: 

INTEGER  ITRPO 

real  T (NSPH) ,SPH (NSPH) ,TC 

COMMON  Blocks :  None 


REAL  FUNCTION  SPHWTR 


Argument  Declarations: 

TEMP  -  REAL  Variable  -  Temperature  (K) 

PARAMETER  Declarations : 

INTEGER  NSPH 

PARAMETER  (NSPH=19) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

EXTERNAL  XTERP 

Local  Variable  Declarations: 

INTEGER  ITRPO 

REAL  T (NSPH) ,SPH (NSPH) ,TC 

COMMON  Blocks :  None 


SUBROUTINE  SPROD 

Argiiment  Declarations: 

SO  -  REAL  Variable  (Input)  -  Incident  solar  flux  times  cosine  zenith  ? 

angle  (W/m^) 

UO  -  REAL  Variable  (Input)  -  Cosine  zenith  angle 

TAU  -  REAL  Variable  (Input)  -  Optical  depth 

W  -  REAL  Variable  (Input)  -  Single  scattering  albedo 

B  -  REAL  Variable  (Input)  -  Hemisphere  average  backscattering  fraction  , 

BU  -  REAL  Variable  (Input)  ~  Zenith  angle  dependent  backscattering 

fraction 

R  -  REAL  Variable  (Input)  -  Diffuse  reflection  coefficient 

T  -  REAL  Variable  (Input)  -  Diffuse  transmission  coefficient 

U  -  REAL  Variable  (Output)  -  Upward  diffuse  flux  (W/m^)  scattered  from 

the  solar  beam 

D  ~  REAL  Variable  (Output)  -  Downward  diffuse  flux  (W/m^)  scattered 

from  the  solar  beam 

CLA  -*  REAL  Variable  (Input)  -  Cloud  fraction 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , EXP , DBLE , DPROD 

Local  Variable  Declarations: 

DOUBLE  PRECISION  DWM , A, E , G , DD , SS 
COMMON  Blocks :  None 


SUBROUTINE  SPTRIG 

Argument  Declarations: 

XLAT  -  REAL  Variable  (Output)  -  Final  latitude  (deg.) 

XLON  -  REAL  Variable  (Output)  -  Final  longitude  (deg.) 

XLATO  -  REAL  Variable  (Input)  -  Initial  latitude  (deg.) 

XLONO  -  REAL  Variable  (Input)  -  Initial  longitude  (deg.) 

AZIM  -  REAL  Variable  (Input)  -  Azimuth  of  angular  distance  measured  at 

initial  point.  0.0  implies  North,  90.0  implies  East,  (deg.) 
BETA  -  REAL  Variable  (Input)  -  Angular  extent  of  distance 
measured  from  the  center  of  the  earth  (deg) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL,ATAN2 ,ASIN, SIN, COS , ACOS , DBLE 

Local  Variable  Declarations: 

DOUBLE  PRECISION  DUMX, DUMY, AZIMP, DLON, DBETA 

COMMON  Blocks:  /CONSTN/ 


250 


SUBROUTINE  SEAT 


Argument  Declarations; 

REAL  Variable  (Input)  -  Cosine  of  plane  parallel  solar  zenith  angle 
INTEGER  Variable  (Input)  -  Index  of  layer  (1  -  top  to  9  -  bottom) 
REAL  Vector  (Len  =  Unspecified)  (Input)  -  Array  of 
altitudes  (m)  vs.  pressure  (10  mb) 

REAL  Variable  (Output)  -  Modified  cosine  of  solar  zenith 
angle  for  a  spherical  geomet^ 

REAL  Variable  (Output)  -  Modified  cosine  of  solar  zenith 
angle  at  the  next  layer  for  a  spherical  correction 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  SIN, COS , ASIN, ACOS , SQRT , REAL , DBLE ,  ABS 

Local  Variable  Declarations: 

REAL  RZ  /  DZ 

DOUBLE  PRECISION  TO, TP , RE, R, RDZ 

COMMON  Blocks:  /CLIMAT/ 


SUBROUTINE  SRCFLX 

Argument  Declarations: 

PTHFAC  —  REAL  Array  (Dim  =  MXLAT  x  MXLON  x  MLMX2  x  Unspecified)  — 
Proportionality  factor  at  source 

NPTH  -  INTEGER  Array  (Dim  =  2  x  2  x  Unspecified)  -  Limits  of  non-zero 
values  of  PTHFAC  . 

MXLAT  -  INTEGER  Variable  (Input)  -  Maximum  number  of  latitudes 

MXLON  -  INTEGER  Variable  (Input)  -  Maximum  number  of  longitudes 

MLMX2  -  INTEGER  Variable  (Input)  -  Maximum  number  of  path  segments 

NSRC  -  INTEGER  Variable  (Input)  -  Source  index  for  path  segments 

IGEOM  -  INTEGER  Variable  (Input)  -  Geometry  number 

MTIME  -  INTEGER  Variable  (Input)  -  Number  of  temporal  values 

PARAMETER  Declarations : 

NGMAX , NAZMAX , NASMAX , NZSMAX , NTIME , MAXLAT , MAXLON , 
NVSMAX ,  ISMX ,  MOLMAX 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(NTIME=97) 

(MAXLAT=3,  MAXLON=l,  NVSMAX=20) 

(M0LMAX=26,  ISMX=M0LMAX+8) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , INT 

Local  Variable  Declarations; 

INTEGER  L,LEVD,LEVU,IT,ITM,MM,KK,LL 

REAL  FAC, FACT 

COMMON  Blocks:  /BRBNDT/ , /HEADER/ 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


UO 

I 

Z 

UP 

UOT 
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SUBROUTINE  SRCGEO 


Argument  Declarations: 


NSRC 

ITSRC 


DRSRC 

PHIL 

LSRC 

XLAT 

XLON 

SOLFAC 


NLAT 

NLON 

ISWATM 

NSOLFC 

XLATSR 

XLONSR 


INTEGER  Vector  (Len  =  Unspecified)  (Output)  -  Number  of  points  in 
altitude-source  path 

INTEGER  Array  (Len  =  MLMX2  x  Unspecified)  (Output)  -  Index  of 
altitude  grid  points  for  background- source  path  for  simple 
calculations 

REAL  Array  (Len  =  MLMX2  x  Unspecified)  (Output)  -  Path  length 

segments  for  background-source  path  for  simple  calculations  (km) 
REAL  Variable  (Output)  -  Elevation  angles  along  simple  path  (deg) 
INTEGER  Variable  (Input)  -  Source  altitude  index 
REAL  Variable  (Input)  -  Latitude  (deg) 

REAL  Variable  (Input)  -  Longitude  (deg) 

REAL  Array  (Dim  =  MAXLAT  x  MAXLON  x  MLMX2  x  Unspecified)  (Output) 
Proportionality  factor  for  background- source  path  for  simple 
calculations 

INTEGER  Variable  (Input)  -  Number  of  latitudes 
INTEGER  Variable  (Input)  -  Number  of  longitudes 
INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  ( Input /Output )  - 

Switch  for  model  atmospheres 

INTEGER  Array  (Dim  =  2  x  2  x  Unspecified)  ( Input /Output )  - 
Array  limits  for  non-zero  values  of  SOLFAC 
REAL  Variable  (Input)  -  Source  latitude  (deg) 

REAL  Variable  (Input)  -  Source  longitude  (deg) 


PARAMETER  Declarations : 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX ,  MLMX2  ,  NAZMAX ,  I SMX ,  MAXLAT ,  MAXLON ,  NGMAX ,  NL , 
MOLMAX 

{MLMAX=140,  MLMX2=2*MLMAX,  NAZMAX=30) 

(MAXLAT=3,  MAXLON-1,  NGMAX=15,  NL=50) 

( M0LMAX=2  6 ,  I SMX=MOLMAX+  8 ) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  REAL , COS , S IN , MAX , MIN , DBLE 

EXTERNAL  GEOM, SPTRIG, INTR2D , ATMSBD, HORIZN 


Local  Variable  Declarations: 


INTEGER  ITDUM ( MLMX2 ) , LS , LSX , LSP , LI , L2 , L , ISRC , LENS , MM , 

KL,KK,LL 

REAL  R(MLMX2) , PHI {MLMX2 ) , THETA (MLMX2 ) , HMIN, BETA, AZP , 

XLATP, XLONP, ELEV, PTHLAT, PTHLON, DTDPAV, SOLAZP 
DOUBLE  PRECISION  SOLE , SRC ( 3 ) , SCTPT ( 3 ) 

COMMON  Blocks :  /ATMDAT/ , /CONSTN/ , /INITAL/ 
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SUBROUTINE  SRCIRR 


Argument  Declarations; 

IFSCR  -  INTEGER  Variable  (Input /Output)  -  File  number  for  scratch 
file  for  solar  path  data 

If  IFSCR  =  0,  file  is  not  OPENed. 

ISHINE  -  INTEGER  Variable  (Input)  -  SJcy/earthshine  index 
Refer  to  User  Reference  Manual  for  definition. 

IGEOM  -  INTEGER  Variable  (Input)  -  Geometry  index 

ISWATM  -  INTEGER  Array  (Dim  =  MAXLAT  x  Unspecified)  (Input /Output) 
Switch  for  model  atmospheres 

PARAMETER  Declarations: 

MLMAX , MLMX2 , I SMX , I STMAX , NAZMAX , NASMAX , NGMAX , 
NZSMAX , MAXLAT , MAXLON , NVSMAX , NL , MOLMAX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  MLMX2=2*MLMAX) 

(MOLMAX=26,  ISMX=MOLMAX+8 ) 

(ISTMAX=30000) 

(MAXLAT=3,  MAXLON=l,  NVSMAX=20,  NL=50) 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2 
INTRINSIC 
EXTERNAL 


lOERR 

MAX , S IN , COS , MIN , DBLE 

RAYPTH , CALEND , HOREQU , EQUECL , ECLGAL , SETUP , lOERR , 
ASPECT, SHNGEO, INDXBK, SPTRIG, HORIZN,  INTR2D, 
ATMSBD 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


Local  Variable  Declarations: 


INTEGER 

REAL 


DOUBLE  PRECISION 


I,L,Ll,LM,LSH,M,MM,IDAYX,LENS,KK,LL,IOS,KL,IERR 
R (MLMX2 ) , THETA (MLMX2 ) , ELEV, BETA, DYEAR, XLEQUT , 
BEQUT , PHIHOR , THD , XLATP , XLONP , TAIRP , 

CLDCVP (0:3) , TMIDN , TNOON , AZP , SOLAZP , SRMAX , 
BETMAX , RHRT , BHRT , HTNGT 
PHISHR, SOL ( 3 ) , XLN { 3 ) , SCTPT ( 3 ) 


COMMON  Blocks : 


/ATMDAT/ , /CONSTN/ , /FLAGS/  , /HEADER/ , / INITAL/ , 
/PATH2/ , /PATH2A/ , /PATH2B/ , /PATH2C/ , /PATH2D/ , 
/PATH4/ 
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SUBROUTINE  SRFLUX 


Argument 

Declarations : 

RFDS 

-  REAL 

Variable 

( Input ) 

DSW 

-  REAL 

Variable 

( Input) 

DLW 

-  REAL 

Variable 

( Input ) 

ABSSLR 

-  REAL 

Variable 

( Input ) 

EMSTRM 

-  REAL 

Variable 

( Input ) 

HTCOND 

-  REAL 

Variable 

{ Input ) 

CHARLN 

-  REAL 

Variable 

(Input) 

TAIR 

-  REAL 

Variable 

( Input ) 

PRESS 

-  REAL 

Variable 

( Input ) 

WINDT 

-  REAL 

Variable 

( Input ) 

TLAYER 

-  REAL 

Vector  (Len  =  0: 

ZLAYER 

H 

IHTFLG 


A 

B 

C 


-  Direct  solar  flux  (W/m^) 

-  Downward  short-wave  flux  (W/m^) 

-  Downward  long-wave  flux  (W/m^) 

-  Solar  absorptivity 

-  Thermal  emissivity 

-  Conductance  coefficient  (W/m^/K) 

-  Surface  characteristic  length  (m) 

-  Air  temperature  (K) 

-  Air  pressure  (mb) 

-  Wind  speed  (m/sec) 

Jnspecified)  (Input)  -  Temperatures  in  each 

layer  (K) 

REAL  Vector  (Len  =  0 : Unspecified)  (Input)  -  Layer  depth  (m) 

REAL  Variable  (Input)  -  Effective  depth  of  heat  storage  (m) 
INTEGER  Variable  (Input)  -  Heat  calculation  index 
IHTFLG  =  0  implies  no  heat  calculations 
IHTFLG  =  1  implies  heat  calculations  with  evaporation 
IHTFLG  =  2  implies  heat  calculations  without  evaporation 
REAL  Variable  (Output)  -  Coefficient  for  the  T^  term 

REAL  Variable  (Output)  -  Coefficient  for  the  T  term 

REAL  Variable  (Output)  -  Coefficient  for  the  constant  term 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL  EVAPOR ,  SATUR 

INTRINSIC  ABS 

EXTERNAL  EVAPOR , SATUR 

Local  Variable  Declarations: 

INTEGER  ITYPE 

REAL  SIGMA, CP , GAM, REC , PO , WAIR, WH20, RATIO, 

TREF , XMU , DENS , TO , HCFORC , HCFREE , 

RLATEN , FLUXD , FLUXU , DT 

CXX  REAL  FLUXD, FLUXU, RI , RO, RCONV, R2TDZ2 , DTDZl , DTDZ2 

COMMON  Blocks:  None 
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SUBROUTINE  SRTLAY 


Argument  Declarations: 

R  -  REAL  Variable  (Output)  -  Spherical  reflection  coefficient 

T  -  REAL  Variable  (Output)  -  Spherical  transmission  coefficient 

G  -  REAL  Variable  (Input)  -  Asymmetry  factor 

W  -  REAL  Variable  (Input)  -  Scattering  albedo 

TAU  -  REAL  Variable  (Input)  -  Layer  optical  depth 

RE  -  DOUBLE  PRECISION  Variable  (Input)  -  Radius  of  the  earth  (km) 

ZM  -  REAL  Variable  (Input)  -  Prior  altitude  (km) 

Z  -  REAL  Variable  (Input)  -  Altitude  of  interest  (km) 

ZP  -  REAL  Variable  (Input)  -  Next  altitude  (km) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  BETAU 

INTRINSIC  REAL 

EXTERNAL  DRTLAY , BETAU , GETGLC 

Local  Variable  Declarations: 

INTEGER  I , N , INDX 

REAL  BU,RMU,RWT,RU,TU 

DOUBLE  PRECISION  XMU ( 12 ) , WT ( 12 ) 

COMMON  Blocks:  /CONSTN/ 


REAL  FUNCTION  STARAD 

Argument  Declarations: 

XL  -  REAL  Variable  -  Galactic  azimuth  (deg) 

B  -  REAL  Variable  -  Galactic  elevation  (deg) 

V  -  REAL  Variable  -  Wavenumber  (cm'^) 

DV  -  REAL  Variable  -  Wavenumber  increment  (cm"^) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  PLANCK 

INTRINSIC  EXP,ABS 

EXTERNAL  PLANCK 

Local  Variable  Declarations: 

INTEGER  I 

REAL  C0,C(2,4) ,CP(2) ,T0,AL,PHI 

COMMON  Blocks:  /CONSTN/ 
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SUBROUTINE  STGEOM 


Argument 

STRING 

HOBS 

HSRC 

SLRNG 

BETA 

PHIOBS 

PHI SRC 

LENP 


VRDATA 

ITPGM 


IGMSW 


lANGSW 


INTRINSIC 


Declarations : 

-  CHARACTER* (* )  Variable  -  Character  string 

-  REAL  Variable  (Output)  -  Observer  altitude  (km) 

-  REAL  Variable  (Output)  -  Source  altitude  (km) 

-  REAL  Variable  (Output)  -  Slant  range  (km) 

-  REAL  Variable  (Output)  -  Earth  center  angle  (deg) 

-  REAL  Variable  (Output)  -  Observer  look  angle  (deg) 

-  REAL  Variable  (Output)  -  Source  look  angle  (deg) 

-  INTEGER  Variable  (Output)  ~  Length  switch 

0  -  Short  path 
1  -  Long  path 

-  CHARACTER* (* )  Vector  (Len  =  Unspecified)  (Input)  ~  Values  to  be 

read  in. 

~  INTEGER  Variable  (Output)  -  Calculation  type 
0  -  At-Source 

1  -  S/B/C:  Slant  Range 

2  ~  S/B/C:  Earth  Center  angle 

3  -  S/B/C:  Source  Look  Angle  or  L:  Tangent  Height 

4  -  S/B/C/L:  Observer  Look  Angle 

5  -  S/B/C:  Observer  Look  Angle  with  Slant  Range 

6  -  S/B/C:  Observer  Look  Angle  with  Earth  Center  Angle 

7  -  Horizontal:  Range 

8  -  Horizontal:  Earth  Center  Angle 

9  -  Limb:  Tangent  Latitude /Longitude 

-  INTEGER  Variable  (Output)  -  Geometry  label  index 

1  -  At-Source 

2  -  Source  (only) 

3  -  Background  (only) 

4  -  Contrast  (source  and  background) 

5  -  Limb  path 

6  -  Horizontal  path 

-  INTEGER  Variable  (Output)  -  Angle  label  index 

1  -  Elevation  angle 

2  -  Zenith  angle 

3  ~  Latitude  and  longitude 

and  EXTERNAL  Declarations: 


INTEGER 

REAL 

CHARACTER*! 

INTRINSIC 

EXTERNAL 


IGTINT 

GETVAR 

UPCASE.LWCASE 
ABS , REAL , DBLE 

GETVAR, IGTINT, UPCASE , LWCASE 


Local  Variable  Declarations: 


REAL  ALTMAX 

DOUBLE  PRECISION  RE 

COMMON  Blocks:  /CONSTN/ 
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REAL  FUNCTION  STRCN2 


Argument  Declarations : 


Z 

HB 

HTRPAU 

CN2SRF 

WINDHI 

PRESS 

TEMP 

WH20 

WC02 

W02 

WL 


REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 


Altitude  (km) 

Terrain  altitude  (km) 

Tropopause  altitude  (km) 

Surface  value  of  Cn^  (m'^^^) 

Average  windspeed  (m/sec) 

Pressure  (mb) 

Temperature  (K) 

Water  vapor  concentration  (ppm) 
Carbon  dioxide  concentration  (ppm) 
Oxygen  concentration  (ppm) 
Wavelength  (}im) 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 


MLMAX , NASMAX , I SMX , MOLMAX 
(MLMAX=140,  NASMAX=15) 
(MOLMAX=26,  ISMX=M0LMAX+8 ) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL  XTERP 

DOUBLE  PRECISION  REFRAC 
INTRINSIC  ABS , EXP , REAL 

EXTERNAL  XTERP , REFRAC 


Local  Variable  Declarations: 

INTEGER  ITRPl 

real  WLO  ,  ALT ,  ZP ,  ZTRPAU ,  ZINF ,  FAC ,  AVALLY ,  WO  ,  CN2BCK , 

WND,CN2X55,  P1,T1,W1 

DOUBLE  PRECISION  DNOXP,  DNOXT,  DNOXWl ,  XNOPT,  XNWL,  DNDNO  ,  HEARTH 


COMMON  Blocks: 


/CONSTN/, /USERDF/ 


SUBROUTINE  SUMFIL 


Argument  Declarations: 


FILERT  -  CHARACTER* (* )  Variable  (Input) 
HEADNG  -  CHARACTER* (* )  Variable  (Input) 
TITLE  -  CHARACTER* (* )  Variable  (Input) 


File  root  name  or  file  name 

Heading 

Title 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


NAZMAX , NASMAX , NGMAX , NZ  SMAX , MAXLAT , MAXLON , I SMX , 
NVSMAX , MOLMAX , MLIDMX 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MAXLAT=3;  MAXLON=l,  NVSMAX=20) 

(MOLMAX=26,  ISMX=MOLMAX+8 ,  MLIDMX=45) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 
CHARACTER* 7 2 
INTRINSIC 
EXTERNAL 


LENSTR 

lOERR 

INT ,  ABS ,  MAX ,  MIN ,  LEN ,  REAL 

CHRCBD, DEVCBD, PUTCLD , PUTSLR, CHTIME , LENSTR, lOERR 


Local  Variable  Declarations: 


INTEGER 
REAL 
LOGICAL 
CHARACTER*! 
CHARACTER* 3 
CHARACTER* 4 
CHARACTER*  5 


I,K,LSTR, IHR, IMN, lOS , KA, KK , LL , ISEC , ITYPO 

YLAT , YLONG , SEC , XSEC , PHI , PH2 

FLUSR 

GMTYPE ( 6 ) , ANTYPE ( 3 ) 

TTIME(2) , MONTH (12) 

LONG 

LAT 


COMMON  Blocks :  /CHRCNM/ , /DEVCNM/ , /DEVICE/ , /FLAGS/ , /HEADER/ , 

/MOLECP/, /USERNM/ 


REAL  FUNCTION  SUPK 


Argument  Declarations: 

V  -  REAL  Variable  -  Waven-umber  (cm’^) 

VO  -  REAL  Variable  -  Center  waveniimber  (cm‘^) 

C  -  REAL  Variable  - 

N  -  INTEGER  Variable  - 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  ABS 

Local  Variable  Declarations: 

REAL  XNORM , VM , X , TEN , XX , CXI 


COMMON  Blocks: 


/CONSTN/ 


SUBROUTINE  SWAT 


Argument  Declarations: 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Layer  reflection 
functions 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Layer  transmission 
functions 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Layer  up  diff 
fluxes  from  solar  beam 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Layer  down  diff 
fluxes  from  solar  beam 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Depleted  solar 
beam  fluxes  at  layer  boundaries 
REAL  Variable  (Input)  -  Solar  band  ground  diffuse  reflectance 
REAL  Vector  (Len  =  Unspecified)  (Output)  -  Upward  diffuse 
solar  band  fluxes  at  layer  boundaries 
REAL  Vector  (Len  =  Unspecified)  (Output)  -  Downward  diffuse 
solar  band  fluxes  at  layer  boundaries 

INTRINSIC  and  EXTERNAL  Declarations: 

real  gam , RAB , RBE , DDIF , UDIF 

EXTERNAL  GAM , RAB , RBE , DDIF , UDIF 

Local  Variable  Declarations: 

real  RA,RB,RC,RAS,RBS,RCS,TA,TB,TC,G,GA,GB,GC, 

RRl ,  RR2  ,  R1  ,  R2  ,  RS ,  RSI ,  RS2  ,  TT ,  USl ,  US2  ,  DSl ,  DS2  , 

DAS , DBS , DCS , DTS , UAS , UBS , UCS , UTS , DSA , DSB , 

USA , USB , RRSl , RRS2 


COMMON  Blocks:  None 


>  RO 

TO 
US 
DS 
S 

AB 

UD 

DD 
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SUBROUTINE  TANGPT 


Argument  Declarations: 

R  -  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Array  of  # 

slant  ranges  along  the  ray  (km) 

PHI  -  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Array  of 
elevation  angles  along  the  ray  (rad) 

THETA  -  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Array  of 

earth  center  angles  along  the  ray  (rad)  ^ 

IZ  -  INTEGER  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Array 

of  altitude  indices  along  the  ray 
KL  -  INTEGER  Variable  ( Input /Output )  -  Number  of  data  points 

along  the  ray 

HTNGT  -  REAL  Variable  ( Input /Output )  -  Tangent  altitude  (km) 

PARAMETER  Declarations: 

INTEGER 


PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 

INTRINSIC  and  EXTERNAL  Declarations: 

INTEGER  ISTAER 

REAL  STRCN2 , XTERP , HAZE 

INTRINSIC  REAL , DBLE , MAX , MIN , COS , SQRT , ABS 

EXTERNAL  STRCN2 , XTERP , EQABS , I STAER , MOLPBD , AERSOL , HYDROM , 

HAZE,CLDRBD 

Local  Variable  Declarations: 

INTEGER  I , L , LMN , I ZL , I ZLP , MLP , I TRPAU ( MAXLAT , MAXLON ) , KK , 

LL, ISTPAU (MAXLAT, MAXLON) , KLAT, KLON, I PRINT, 
ITRP0,MLX 

REAL  WL , PHIl , PHI2 , XMHMIN, DELXMH, FAC , VISX, VI , VF , DUM, 

TAV, FACICE, FACSNW, ZLP 
DOUBLE  PRECISION  MH, SNELL 
LOGICAL  DUPLIC 

COMMON  Blocks :  /CLDRN/  , /HEADER/ , /INITAL/ , /MOLCON/ , /MOLECP/ , 

/PLMDAT/ , /VSADTA/ 


MLMAX ,  ISMX ,  NNNMAX ,  NAZMAX ,  NASMAX ,  NGAS  ,  NGMAX , 
NZSMAX ,  MAXLAT ,  MAXLON ,  NVSMAX ,  NVSA ,  MOLMAX , 
MLIDMX 

(NGMAX=15,  NAZMAX^SO,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  NNNMAX=5,  NGAS=6) 

(MOLMAX=26,  ISMX=MOLMAX+8 ,  MLIDMX=45) 
(MAXLAT=3,  MAXLON=l,  NVSMAX=20,  NVSA=9 ) 
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SUBROUTINE  TERMPR 


Argument  Declarations: 

SOLEV  -  REAL  Variable  (Input)  -  Solar  elevation  (deg) 

SOLAZ  -  REAL  Variable  (Input)  -  Solar  azimuth  (deg) 

XLUNEV  “  REAL  Variable  (Input)  -  Lunar  elevation  (deg) 

XLUNAZ  -  REAL  Variable  (Input)  -  Lunar  azimuth  (deg) 

PHI  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Elevation  angle 
background  (deg) 

PROJS  -  REAL  Array  (Dim  =  6  x  Unspecified)  (Output)  -  Solar  projection 
factors 

SHDWS  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Self -shadowing  factor 
for  sun 

PROJL  -  REAL  Array  (Dim  =  6  x  Unspecified)  (Output)  -  Lunar  projection 
factors 

SHDWL  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Self -shadowing  factor 
for  moon 

NPTS  -  INTEGER  Variable  (Input)  -  Number  of  points 

ISCN  -  INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Scene  index 


PARAMETER  Declarations: 

INTEGER  NGMAX ,  NSCEN ,  NMATL 

PARAMETER  (NSCEN=35,  NMATL=28) 

PARAMETER  ( NGMAX=  1 5  ) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  SHADOW 

INTRINSIC  MAX,  SIN,  SQRT,  ATAN2  ,  ABS 

EXTERNAL  SHADOW, SCENBD 

Local  Variable  Declarations: 

INTEGER  I,L,M,IBK 

real  XNORM (6,3), XLOS ( 3 ) , SLOS ( 3 ) , LLOS ( 3 ) , PROJl , PROJ2 , 

AZS,AZL, SLOPE 

COMMON  Blocks :  /CONSTN/ , /FLAGS/ , /SCENES/ 


REAL  FUNCTION  THCAIR 

Argument  Declarations: 

TEMP  -  REAL  Variable  -  Temperature  (K) 
INTRINSIC  and  EXTERNAL  Declarations:  None 
Local  Variable  Declarations:  None 
COMMON  Blocks:  None 
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REAL  FUNCTION  THCICE 


Argument  Declarations: 

TEMP  -  REAL  Variable  -  Temperature  (K) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

EXTERNAL  XTERP 

Local  Variable  Declarations: 

INTEGER  NT^ITRPO 

REAL  T(ll) ,THC(11) , TC 

COMMON  Blocks:  None 


REAL  FUNCTION  THCSNW 

Argument  Declarations: 

DENSTY  -  REAL  Variable  -  Density  (gm/rn^) 
INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , DBLE 


REAL  FUNCTION  THCWTR 


Argument  Declarations: 

TEMP  -  REAL  Variable  -  Temperature  (K) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

EXTERNAL  XTERP 

Local  Variable  Declarations: 

INTEGER  ITRP0,NT 

REAL  T(ll) ,THC(11) ,TC 

COMMON  Blocks :  None 
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SUBROUTINE  TITLCR 


Argument  Declarations: 

TITLE  -  CHARACTER* (* )  Variable  (Output)  -  Title 
INTRINSIC  and  EXTERNAL  Declarations: 


CHARACTER* 2 4 

FDATE 

CVAX 

INTRINSIC 

TIME, DATE 

CIBM 

INTRINSIC 

REAL 

CRS  6 

INTRINSIC 

TIME , LOCALTIME 

CF90 

INTRINSIC 

T IME_AND_DATE 

EXTERNAL 

FDATE 

CPRI 

EXTERNAL 

TIME$A,DATE$A 

CCDC 

EXTERNAL 

TIME, DATE 

CIBM 

EXTERNAL 

DATIMX 

CRS  6 

EXTERNAL 

ADDARR 

CLAH 

EXTERNAL 

TIME, DATE 

Local 

Variable  Declarations: 

CIBM 

INTEGER 

NOW (14) 

CRS  6 

INTEGER 

SNCEPH , TMADDR , TM ( 9 ) 

CIBM 

REAL 

SEC 

CIBM 

CHARACTER*! 

DAY(7) ,MONTH(12) 

CPRI 

CHARACTER*  8 

BUFTP 

CVAX 

CHARACTER*  8 

BUFTV 

CLAH 

CHARACTER*  8 

BUFTL 

CF90 

CHARACTER*  8 

BUFD90 

CVAX 

CHARACTER* 9 

BUFDV 

CF90 

CHARACTER* 9 

BUFT90 

CCDC 

CHARACTER* 10 

BUFTC , BUFDC 

CCDC 

CHARACTER* 10 

TIME, DATE 

CLAH 

CHARACTER* 11 

BUFDL 

CPRI 

CHARACTER* 16 

BUFDP 

CHARACTER* 2 4 

BUFDTU 

CRS  6 

CHARACTER* 2 4 

BUFRS6 

CIBM 

CHARACTER* 2 6 

BUFIBM 

CHARACTER* 40 

BLANKS 

CHARACTER* 49 

MOSART 

COMMON  Blocks :  None 


CRS6  SUBROUTINE  ADDARR 


Argument  Declarations : 

ADDRSS  -  INTEGER  Vector  (Len  =  N) 
array  -  INTEGER  Vector  (Len  =  N) 
N  -  INTEGER  Variable  (Input) 


(Input)  -  Address  locations 
(Output)  -  Array  containing  address 
-  N\amber  of  addresses 


Local  Variable  Declarations : 
CRS6  IMPLICIT  INTEGER  (A-Z) 
CRS  6  ARRAY ( I ) =ADDRSS ( I ) 


COMMON  Blocks:  None 


REAL  FUNCTION  TMPCLD 


Argument  Declarations : 

CLDRAD  -  INTEGER  Variable  -  Cloud  radiance  (|iW/cm^/sr) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  LOG 

Local  Variable  Declarations: 

INTEGER  I 

REAL  A(8),T,R 

COMMON  Blocks :  None 


SUBROUTINE  TRANLW 


Argument  Declarations: 

KDX  -  INTEGER  Variable  (Input)  -  First  index  of  element  of  matrix  to  be 
processed 

JDX  -  INTEGER  Variable  (Input)  -  Second  index  of  element  of  matrix  to  be 
processed 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  LOGIC , MAX, EXP 

EXTERNAL  BRBNBD 


Local  Variable  Declarations: 


INTEGER  I, J,M,IDX0(4) ,IDXT(4) 

REAL  OP ( 4 ) , TOP ( 4 ) , D ( 4 ) , T1 ( 4 ) , T2 ( 4 ) ,01(4) ,02(4) , 

EU,EV,EW,EX,OPD 


COMMON  Blocks: 


/FLXTAB/, /OMATLW/ 


SUBROUTINE  TRNSMT 


Arguinent  Declarations: 


TAU 

TAUA 

XS 

51 

52 

53 

54 

55 

56 
QA 

IBAND 

ISPECS 

DV 

FLAG 

MM 


DOUBLE  PRECISION  Variable  (Output)  -  Transmission 

DOUBLE  PRECISION  Variable  (Output)  -  Transmittance  due  to 
absorption 

DOUBLE  PRECISION  Vector  (Len  =  Unspecified)  (Input)  -Optical  depth 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Summing  variable 
for  Lorentz  halfwidth  times  line  density 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Summing  variable 
for  Doppler  halfwidth  times  line  density 

REAL  Vector  (Len  =  Unspecified  (Input)  -  Summing  variable 
for  line  density 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Summing  variable 
for  the  continuum 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Summing  variable 
for  scattering 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Summing  variable 
for  (Lorentz  halfwidth) ^  times  line  density 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  LOWTRAN 
exponential  parameter 

INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Band  model  index 

INTEGER  Variable  (Input)  -  DIMENSION  of  XS,  SI,  S2 ,  S3, 

S4,  S5,  S6,  and  QA 

REAL  Variable  (Input)  -  Spectral  increment  of  transmittance 
calculations  (cm"^) 

LOGICAL  Variable  (Input)  -  Flag  for  storing  of  component 
transmit tances 

INTEGER  Variable  (Input)  -  Azimuth  index 


PARAMETER  Declarations: 

INTEGER  I SMX ,  NAZMAX ,  MOLMAX 

PARAMETER  (MOLMAX=26,  ISMX=M0LMAX+8 ,  NAZMAX=30) 

INTRINSIC  and  EXTERNAL  Declarations: 


DOUBLE  PRECISION  BAND 
INTRINSIC  DBLE , EXP , REAL 

EXTERNAL  BAND 


Local  Variable  Declarations: 


INTEGER  K 

DOUBLE  PRECISION  TAUSC,TAUP 

COMMON  Blocks:  /TRANSP/ 


4^ 
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SUBROUTINE  TURBUL 


Argument  Declarations: 


NBKGD 

CN2 

RSCINT 

lOSB 

PTHFAC 

NPTH 

VARXZ 

MLMAX 


INTEGER  Variable  (Input)  -  Number  of  path  increments 
between  observer  and  background 
REAL  Array  (Dim  =  MLMAX  x  MAXLAT  x  Unspecified)  (Input)  - 
Structure  constant  profile  (m“^-^^-) 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Path  lengths  for 
path  between  observer  and  background  (km) 

REAL  Vector  (Len  =  Unspecified)  (Input)  -  Altitude  index  for  path 
increments  between  observer,  source,  and  background  in 
altitude  array 

REAL  Array  (Dim  =  MAXLAT  x  Unspecified)  (Input)  -  Proportionality 
factor 

INTEGER  Array  (Dim  =  2  x  Unspecified)  (Input)  -  Limits  on 
non-zero  components  of  PTHFAC 

REAL  Vector  (Len  =  Unspecified)  (Output)  -  Scintillation  of 
points  along  raypath  at  observer 
INTEGER  Variable  (Input)  -  Maximum  number  of  altitude  points 


PARAMETER  Declarations : 


INTEGER  MAXLAT 

PARAMETER  {MAXLAT=3) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  MAX 


Local  Variable  Declarations: 

INTEGER  L , LB , KL , KK , LL 

REAL  XDUM , PWR , DR , CN2 AV 

COMMON  Blocks:  None 


REAL  FUNCTION  UDIF 


Argument  Declarations: 


U1 

-  REAL 

Variable 

-  Upward  flux, 

layer  1 

U2 

-  REAL 

Variable 

-  Upward  flux. 

layer  2 

U3 

-  REAL 

Variable 

-  Upward  flux, 

layer  3 

D1 

-  REAL 

Variable 

-  Downward  flux,  layer  1 

D2 

-  REAL 

Variable 

-  Downward  flux,  layer  2 

R2 

-  REAL 

Variable 

-  Diffuse  reflection  coefficient, 

layer 

2 

R2S 

-  REAL 

Variable 

-  Directional 

reflection 

coefficient,  layer 

R3 

-  REAL 

Variable 

-  Diffuse  reflection  coefficient. 

layer 

3 

T1 

-  REAL 

Variable 

-  Transmission 

,  layer  1 

T2 

-  REAL 

Variable 

-  Transmission 

,  layer  2 

G 

-  REAL 

Variable 

-  Composite  R 

and  T  from 

FUNCTION 

GAM 

Local  Variable  Declarations: 

REAL  T,R,RR 

COMMON  Blocks :  None 
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SUBROUTINE  UDLAY 


Argiiment  Declarations : 


U 

D 

ALBEDO 

EXTENC 

PHI 

B 

BU 

RE 

ZM 

Z 

ZP 


REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 


(Output)  -  Diffuse  Upward  reflectance 
(Output)  -  Diffuse  Downward  reflectance 


(Input)  -  Single  scattering  albedo 
(Input)  -  Extinction  coefficient  (km"^) 

(Input)  -  Elevation  angle  at  surface  (deg) 
(Input)  -  Average  backseat ter  fraction 
(Input)  -  Backscatter  fraction  at  PHI 
DOUBLE  PRECISION  Variable  (Input)  -  Radius  of  the  earth  (km) 
REAL  Variable  (Input)  -  Prior  altitude  (km) 

REAL  Variable  (Input)  -  Altitude  of  interest  (km) 

REAL  Variable  (Input)  -  Next  altitude  (3an) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC 

EXTERNAL 


MAX , EXP , S IN , ABS , REAL , DBLE , LOG , SQRT 
DRTLAY 


Local  Variable  Declarations: 

real  XMUO  ,  TAU,  GAMMA,  DELTA,  SIGMA,  DUM,  R,  T 

COMMON  Blocks:  /CONSTN/ 


CPiARACTER*  (  *  )  FUNCTION  UPCASE 

Argument  Declarations : 

STRING  -  CHARACTER* (* )  Variable  -  Input  string 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINS I C  LEN , INDEX 

Local  Variable  Declarations: 

INTEGER  I , LOC 

CHARACTER*  2  6  UPPER , LOWER 

COMMON  Blocks:  None 


SUBROUTINE  USRBCK 


Argument  Declarations: 

IBKGD  -  INTEGER  Variable  (Output)  --  Background  index 


PARAMETER  Declarations : 


INTEGER 

PARAMETER 

PARAMETER 


NMATL ,  NSCEN ,  MAXLAT ,  MAXLON ,  MO  UMAX 
(NMATL=28,  NSCEN=35,  MAXLAT=3 ,  MAXLON=l) 
(MOLMAX=26) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

CHARACTER* 3 
CHARACTER* 7 2 
EXTERNAL 


IGTINT 

GETVAR 

UPCASE 

lOERR 

IGTINT , GETVAR, GETVEC , IGTVEC , RDLINE , PARSE , 
BKGDBD , SCENBD , UPCASE , lOERR , CHRCBD , DEVCBD 


Local  Variable  Declarations: 


INTEGER 

REAL 

CHARACTER*! 
CHARACTER*  2  0 
CHARACTER*  80 
CHARACTER*2  55 


I , J, K, lOS , N, JBCK , NVAR, ICOLO , ICOL40 , JBCK2 , NVAR4 

DUMVEC ( 4 ) , SLPSD 

DOT 

VRDATA ( 5 ) 

DUMMY 

VARIAB 


COMMON  Blocks: 


/BACKGD/ , /CHRCNM/ , /DEVICE/ , /SCENES/ 


SUBROUTINE  USRCLD 

Argument  Declarations: 

CLDBSU  -  REAL  Variable  (Output)  -  Cloud  base  altitude  (km) 
CLDTPU  -  REAL  Variable  (Output)  -  Cloud  top  altitude  (km) 

PARAMETER  Declarations: 


INTEGER  MOLMAX 

PARAMETER  (MOLMAX=2  6 ) 

INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

CHARACTER* 3 
CHARACTER* 7 2 
EXTERNAL 


IGTINT 

GETVAR 

UPCASE 

lOERR 

IGTINT ,  GETVAR,  RDLINE  ,  PARSE ,  UPCASE ,  lOERR,  CLDRBD , 
DEVCBD 


Local  Variable  Declarations: 


INTEGER 
CHARACTER*! 
CHARACTER*  2  0 
CHARACTER*  80 
CHARACTER*255 


I , lOS , NVAR , ICOLO , ICOL4  0 , NVAR6 , NVAR8 
DOT 

VRDATA { 8 ) 

TITLE, DUMMY 
VARIAB 


COMMON  Blocks: 


/CLDRN/ , /CLDUSR/ , /DEVICE/ 
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SUBROUTINE  USRDEF 


Argument  Declarations: 

NFILE  -  INTEGER  Variable  (Input)  -  Device  number 
HXTRA  -  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Extra 

altitudes  Ocm) 

NXTRA  -  INTEGER  Variable  (Input /Output)  -  Number  of  extra  altitudes 
RE  -  DOUBLE  PRECISION  Variable  (Output)  -  Earth  radius  (km) 

ISWTCH  -  INTEGER  Variable  (Input)  -  Switch  for  different  files 

PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX , NASMAX , NL , MAXLAT , MAXLON , NAZMAX , NGMAX , 
NZSMAX ,  ISMX ,  NVSMAX ,  MOLMAX ,  MLIDMX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  NL=50,  MAXLAT=3,  MAXLON=l) 
(MOLMAX=26,  ISMX=MOLMAX+8 ,  MLIDMX=45) 
(NVSMAX=20) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

CHARACTER*! 
CHARACTER* 3 
CHARACTER* 7 2 
INTRINSIC 
EXTERNAL 


IGTINT,MDLATM 

XMCONV , GETVAR , XTERP 

LWCASE 

UPCASE 

lOERR 

MAX , SQRT , COS , S IN , DBLE , MIN , ABS , INT , REAL 
ATMSBD , XMCONV , RDLINE , GETVAR , XTERP , PARSE , MDLATM, 
IGTINT , EXMLBD , STMLBD , UPCASE , LWCASE , GBLBCK , 
lOERR 


Local  Variable  Declarations: 


INTEGER 


REAL 

LOGICAL 
CHARACTER*! 
CHARACTER* 20 
CHARACTER*  8  0 
CHARACTER*255 


K, L, lOS , NDATA, ICOLO , ICOL40 , ITRPO , ITRPl ,  KK,  LL, 
NVARl 0 , NVAR12 , INDXP (MLMAX) , ISCENE , MXl , MX2 , 
INDXT ( MLMAX ) , INDXM ( ISMX , MLMAX ) , MLAT 
TO , P  0 , TORR , REX , PX , TX , TMIDN , TNOON , FRSNWP , FRICOP , 
FACLAT , ABSLAT , PXl , PX2 , TXl , TX2 , CXI , CX2 , FRWTRP 
FLRD2 , FLRD3 , FLRD4 , FLRD5 , FLRD6 
DOT 

VRDATA(15) 

TITLE, DUMMY 
VARIAB 


COMMON  Blocks :  /ATMDAT/ , /CONSTN/ , /EXTMOL/ , /HEADER/ , /MOLECP/ , 

/STDMOL/ , /USERDF/ , /USERNM/ 
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REAL  FUNCTION  VIRIAL 


Argument  Declarations: 

T  -  REAL  Variable  -  Temperature  (K)  f 

WH20  -  REAL  Variable  -  Water  vapor  content  (ppm) 

INDX  -  REAL  Variable  -  Index  for  virial  coefficient 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

EXTERNAL  XTERP , VIRLBD 

Local  Variable  Declarations: 

REAL  AAA,AWW,AWWW,AAW,X 

COMMON  Blocks:  /VIRDAT/ 


REAL  FUNCTION  VISRH 


Argument  Declarations: 


RH 

lAERO 


REAL  Variable  -  Relative  humidity  (fraction) 
INTEGER  Variable  -  Aerosol  index 


lAERO 

= 

1 

lAERO 

= 

2 

lAERO 

= 

3 

lAERO 

4 

lAERO 

= 

5 

lAERO 

6 

lAERO 

= 

7 

lAERO 

= 

8 

lAERO 

= 

9 

lAERO 

= 

10 

lAERO 

= 

11 

lAERO 

= 

12 

lAERO 

= 

13 

implies  Rural 

implies  Urban 

implies  Maritime 

implies  Oceanic 

implies  Tropospheric 

implies  Desert 

implies  Advection  Fog 

implies  Radiation  Fog 

implies  Light  Rural  Fog 

implies  Light  Urban  Fog 

implies  Light  Maritime  Fog 

implies  Undefined 

implies  Light  Tropospheric  Fog 


Local  Variable  Declarations: 


REAL 


VISO (13) ,EXPN(13) 


COMMON  Blocks:  None 
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SUBROUTINE  VSA 


Argument  Declarations: 

VIS  -  REAL  Array  (Dim  =  MAXLAT  x  Unspecified)  (Input)  -  Sea  level 
visible  range  (km) 

CEILHT  -  REAL  Variable  (Input)  -  Cloud  ceiling  altitude  (km) 

DEPTH  -  REAL  Variable  (Input)  -  Cloud/fog  depth  (km) 

ZINVHT  -  REAL  Variable  (Input)  -  Altitude  of  inversion  or  boundary  layer 
(km) 

NLAT  -  INTEGER  Variable  (Input)  -  Number  of  latitudes 
NLON  -  INTEGER  Variable  Unput)  -  Number  of  longitudes 

PARAMETER  Declarations: 

INTEGER  NVSA , MAXLAT , MAXLON 

PARAMETER  (NVSA=9,  MAXLAT=3 ,  MAXL0N=1) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , EXP , MIN , LOG 


Local  Variable  Declarations: 


INTEGER 

REAL 


I FOG , I VSA , I , K , KK , LL 

ZT, ZC,A(2) ,B(2) ,C(2) ,FAC1 (9) ,FAC2 (9) , ZHIGH,D, 
Z INV ,  E ,  Z ALGO ,  ANUM ,  F 


COMMON  Blocks: 


/VSADTA/ 


REAL  FUNCTION  XMCONV 


Arg-airient  Declarations  : 

ZUSER  ”  REAL  Variable  -  User-defined  altitude  (km) 

AUSER  “  REAL  Variable  -  User-defined  molecular  concentration 

INDX  -  INTEGER  Variable  -  Units  index  for  AUSER 

INDX  =0  implies  that  molecular  profile  for  M2  is  to  be  used 
INDX  =1  implies  that  AUSER  is  provided  in  volume  mixing  ratio  (ppmv) 
INDX  =2  implies  that  AUSER  is  provided  in  number  density  (cm"^) 
INDX  =3  implies  that  AUSER  is  provided  in  mass  mixing  ratio  (gm/kg) 
INDX  =4  implies  that  AUSER  is  provided  in  mass  density  (gm/m^) 

INDX  =5  implies  that  AUSER  is  provided  in  partial  pressure  (mb) 

INDX  =6  implies  that  AUSER  is  provided  in  dew  point 

temperature  (K)  (water  vapor  only) 

INDX  =7  implies  that  AUSER  is  provided  in  dew  point 

temperature  (deg.  C)  (water  vapor  only) 

INDX  =8  implies  that  AUSER  is  provided  in  relative 
humidity  (per  cent)  (water  vapor  only) 

PRESS  -  REAL  Variable  -  Pressure  at  altitude  Z  (mb) 

TEMP  -  REAL  Variable  -  Temperature  at  altitude  Z  (K) 

Z  -  REAL  Vector  (Len  =  Unspecified)  -  Altitude  array  (km) 

AMOL  -  REAL  Vector  (Len  =  Unspecified)  -  Molecular  concentration 

used  if  INDX  =0  (ppmv) 

NL  -  INTEGER  Variable  -  DIMENSION  of  Z  and  AMOL 

KTYPE  -  INTEGER  Variable  -  Molecular  index 

KTYPE=1  implies  water  vapor 

PARAMETER  Declarations: 

INTEGER  MLIDMX 

PARAMETER  {MLIDMX=45) 

INTRINSIC  and  EXTERNAL  Declarations: 

real  XTERP , SATUR 

EXTERNAL  XTERP , SATUR , MOLPBD 

Local  Variable  Declarations: 

INTEGER  ITYPEO , ITYPEl , ITRPO 

real  to , AVOGAD , XLOSMT , TT , EW , RHDUM 


COMMON  Blocks : 


/MOLDAT/ 


SUBROUTINE  XPNDAR 


Argument  Declarations : 

X  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  X-array 

Y  -  REAL  Vector  (Len  =  Unspecified)  (Input /Output)  -  Y-array 

N1  -  INTEGER  Variable  (Input)  -  Length  of  X,Y-arrays  already  filled 

N2  -  INTEGER  Variable  (Input)  -  Length  of  Y-array  to  be  filled 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  XTERP 

EXTERNAL  XTERP 

Local  Variable  Declarations: 

INTEGER  NP , I , ITRP 1 

COMMON  Blocks:  None 


REAL  FUNCTION  XTERP 


Argument  Declarations: 

XO  -  REAL  Variable  -  Value  of  X  for  which  Y(X0)  is  to  be  found 

X  -  REAL  Vector  (Len  =  Unspecified)  -  X-array  (must  be 

monotonically  increasing) 

Y  -  REAL  Vector  (Len  =  Unspecified)  -  Y-array  as  a  function  of  X-array 

N  -  INTEGER  Variable  -  DIMENSION  of  X-  and  Y-arrays 

NTYPE  -  INTEGER  Variable  -  Index  for  the  type  of  interpolation 

NTYPE  =  0  implies  linear  interpolation 
NTYPE  =  1  implies  exponential  interpolation 
NTYPE  =  2  implies  that  Y(COS(X)),  where  X  is  in  degrees 
and  linear  interpolation 
NTYPE  =  3  implies  that  Y(COS(X)^),  where  X  is  in 
degrees  and  linear  interpolation 
NTYPE  =  4  implies  that  Y(l/X)  with  linear  interpolation 
NTYPE  =  5  implies  that  Y(l/X)  with  exponential  interpolation 
NTYPE  =  6  implies  that  X  is  cyclical  (i.e.,  X(l)  follows  X(N)) 
with  linear  interpolation;  it  is  assumed  that  0  <=  X  <=  1 . 
NTYPE  =  7  implies  an  Aitken  iterated  polynomial 

interpolation.  N  must  be  less  than  or  equal  to  NAIT. 

PARAMETER  Declarations : 

INTEGER  NAIT 

PARAMETER  (NAIT=100) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTEGER  IBNSRC 

INTRINSIC  M7iX,MIN,  ABS,COS 

EXTERNAL  IBNSRC 

Local  Variable  Declarations: 

J,K,KEY,KEYP 

FAC, DX,Z0,Z1,Z2,DZ,DUM,P (NAIT) ,Q(NAIT) 


INTEGER 

REAL 


COMMON  Blocks : 


/CONSTN/ 


REAL  FUNCTION  ZLAT 


Argument  Declarations: 


XLMBDA  -  REAL  Variable 
BETA  -  REAL  Variable 
LABSUN  -  REAL  Variable 
DIST  -  REAL  Variable 
ASC  -  REAL  Variable 
FI  -  REAL  Variable 


Geocentric  ecliptic  longitude 
Geocentric  ecliptic  latitude 
Earth  heliocentric  latitude 
Distance  of  the  band 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  ABS,MOD,MAX,MIN,COS, ACOS, SIN,ASIN, SQRT 


Local  Variable  Declarations: 


REAL 


PHI , PHI 0 , R , BETSOL , XXO , YY 0 , ZZ  0 , ANG , SNLONG , VAR , 
SOBLON,SE 


COMMON  Blocks:  /CONSTN/ 


REAL  FUNCTION  ZODICL 


Argument  Declarations: 


XLMBDA  - 
BETA 
V 
DV 

SOLDIS  - 
LONG 

DAY 

MONTH  » 

YEAR 

TIME 

ITIME  - 


REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 


Ecliptic  longitude  (deg) 

Ecliptic  latitude  (deg) 

Wavenumber  { cm' ^ ) 

Wavenumber  increment  (cm"^) 
Normalized  solar  distance 
Longitude  (in  degrees  and 
fractions  of  degrees,  is  east) 

INTEGER  Variable  -  Day  of  the  month 
INTEGER  Variable  -  Month  of  the  year 
INTEGER  Variable  -  Year 

REAL  Variable  -  Time  (decimal)  local  standard  (LST) 
or  Greenwich  mean  (GMT) 

INTEGER  Variable  ~  Time  index 

ITIME  =  0  implies  local  standard  time 

ITIME  =  1  implies  Greenwich  mean  time 

ITIME  =  2  implies  local  daylight  savings  time 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

DOUBLE  PRECISION 
INTRINSIC 

EXTERNAL 


EMISSV,DBANDS 

EPHTIM 

REAL , SQRT , DBLE , AINT , INT , ABS , MOD , S IGN , COS , ACOS , 
SIN 

EMISSV, GETGLC, DBANDS , ZOD2BD, EPHTIM 


Local  Variable  Declarations: 


INTEGER  I , J , NORDER , INDX , I SW 

REAL  ZCUT,RE,RECL,RSYM, ZSYM, FUDGE , XECL , YECL , ZECL, 

RMAX , XANG , LABSUN , DAYCNT , TEMP , DCIR , ZNLONG , 
GMTDEG 

DOUBLE  PRECISION  RT ( 512 ), WT ( 512 ), ZOD, DDCIR, GAMMA, CENT, ZDEP, DUST, 

XSINE,ETIME 

COMMON  Blocks:  /CONSTN/ , /ZPLANE/ 
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Argument  Declarations:  None 
PARAMETER  Declarations: 


SUBROUTINE  ZROHDR 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


NAZMAX , NASMAX , NGMAX , NZSMAX , MAXLAT , MAXLON , ISMX , 
NVSMAX,MOLMAX 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
{MAXLAT=3,  MAXLON=l,  NVSMAX=20) 

(MOLMAX=26,  ISMX=MOLMAX+8 ) 


Local  Variable  Declarations: 


INTEGER 


I,K,M,KK,LL,MM 


COMMON  Blocks:  /HEADER/ 


SUBROUTINE  ZROINT 


Argument  Declarations: 

NASPCT  -  INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Number  of 
earth/skyshine  angles 

NAZSH  -  INTEGER  Variable  (Input)  -  Number  of  earth/skyshine  azimuths 

NAZ  -  INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Number  of 

observer /source  azimuths 

BW  -  REAL  Variable  (Input /Output)  -  Bandwidth  (cm'^) 

BWL  -  REAL  Variable  ( Input /Output)  -  Bandwidth  (|im) 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 


NAZMAX , MLMAX , NASMAX , NZ SMAX , NMATL , MAXLAT , MAXLON , 
NGMAX 

{NAZMAX=30,  NASMAX=15,  NZSMAX=4,  NGMAX=15) 
(MLMAX=140,  NMATL=28,  MAXLAT=3 ,  MAXL0N=1) 


Local  Variable 
INTEGER 
COMMON  Blocks: 


Declarations : 

I,M,MM,LB, IGEOM,LS 
/BCKDAT/, /INTSTO/ 
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BLOCK  DATA  ARSABD 


PARAMETER  Declarations: 

INTEGER  NWLAER , NWLCLD 

PARAMETER  (NWLAER=47,  NWLCLD=79) 


Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /AERSLA/ 


BLOCK  DATA  ARSLBD 


PARAMETER  Declarations: 

INTEGER  NWLAER ,  NWLCLD ,  NANG 

PARAMETER  (NWLAER=47,  NWLCLD=79,  NANG=65) 

Local  Variable  Declarations: 

INTEGER  J,K 

COMMON  Blocks:  /AEROSL/ 


BLOCK  DATA  ARSXBD 


PARAMETER  Declarations: 

INTEGER  NWLAER , NWLCLD 

PARAMETER  (NWLAER=47,  NWLCLD=79) 


Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /AERSLX/ 


BLOCK  DATA  ATMSBD 


PARAMETER  Declarations : 

INTEGER  NL , MAXLAT , MAXLON 

PARAMETER  (NL=50,  MAXLAT=3 ,  MAXLON=l) 


Local  Variable  Declarations: 

INTEGER  L 

COMMON  Blocks:  /ATMDAT/ 
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BLOCK  DATA  BKGDBD 


PARAMETER  Declarations: 

INTEGER  NMATL , MAXLAT , MAXLON 

PT^RAMETER  (NMATL=28,  MAXLAT=3 ,  MAXLON=l) 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks :  /BACKGD/ 


BLOCK  DATA  BKSTBD 


PARAMETER  Declarations: 

INTEGER  NWLAER,NSTTMP 

PARAMETER  (NWLAER=47,  NSTTMP=16) 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /BSTAER/ 


BLOCK  DATA  BRBNBD 

COMMON  Blocks :  /CLDPAR/ , /FLXTAB/  ,  /SWPARM/ 


BLOCK  DATA  CFCBD 

Local  Variable  Declarations: 

INTEGER  I , J 

COMMON  Blocks:  /CFCBM/ 


BLOCK  DATA  CHRCBD 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /CHRCNM/ 
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BLOCK  DATA  CIRRBD 


PARAMETER  Declarations: 

INTEGER  NWLAER , NWLCLD 

PARAMETER  (NWLAER=47 ,  NWLCLD=79) 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks :  /CRASYM/ 


BLOCK  DATA  CLDRBD 


Local  Variable  Declarations: 

INTEGER  L 

COMMON  Blocks:  /CLDRN/ 


BLOCK  DATA  CROSBD 


Local  Variable  Declarations: 

INTEGER  I , J 

COMMON  Blocks:  /CRSECT/ 


BLOCK  DATA  DEVCBD 


PARAMETER  Declarations: 

INTEGER  MOLMAX 

PARAMETER  ( MOLMAX=  2  6 ) 

COMMON  Blocks :  /DEVCNM/ , /DEVICE/ , /MACHIN/ 


BLOCK  DATA  DSRTBD 


PARAMETER  Declarations: 

INTEGER  NWLAER 

PARAMETER  ( NWLAER=  4  7 ) 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /DESDAT/ 
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BLOCK  DATA  ECOSBD 


Local  Variable  Declarations; 

INTEGER  I 

COMMON  Blocks:  /ECOCNV/ , /ECOSYS/ 


BLOCK  DATA  EMISBD 

PARAMETER  Declarations: 

INTEGER  NLMAX 

PARAMETER  ( NLMAX= 1 0 ) 

Local  Variable  Declarations: 

INTEGER  I , L 

COMMON  Blocks:  / CDRYDS / , /WETNES / 


BLOCK  DATA  EXMLBD 

PARAMETER  Declarations: 

INTEGER  NL 

PARAMETER  (NL=50) 

Local  Variable  Declarations: 

INTEGER  L 

COMMON  Blocks:  /EXTMOL/ 


BLOCK  DATA  GLCFBD 

Local  Variable  Declarations : 

INTEGER  I 

COMMON  Blocks:  /GAUSSL/ 


BLOCK  DATA  H20BD 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /CONTNS/ 
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BLOCK  DATA  HAZEBD 

PARAMETER  Declarations: 

INTEGER  NZBNDR, NZTROP , NZSTRA, NZUPR 

PARAMETER  {NZBNDR=3,  NZTROP=9,  NZSTRA=17,  NZUPR=14) 

Local  Variable  Declarations: 

INTEGER  L 

COMMON  Blocks:  /HZDATA/ 

BLOCK  DATA  ICEBD 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /ICEREF/ 

BLOCK  DATA  INFLBD 

Local  Variable  Declaration 
INTEGER  I 

COMMON  Blocks:  /INFLTR/ 

BLOCK  DATA  INPTBD 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks :  /INPTDT/ , /INPNDX/ 

BLOCK  DATA  LAGRBD 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /LAGUER/ 
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BLOCK  DATA  LUNPBD 


Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /PERLUN/ 


BLOCK  DATA  MARNBD 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /NAVMAR/ 


BLOCK  DATA  MOLNBD 


PARAMETER  Declarations: 

INTEGER  NSMX , MLIDMX 

PARAMETER  (MLIDMX=45,  NSMX=MLIDMX+8 ) 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks :  /MOLNMX/ 


BLOCK  DATA  MOLPBD 


PARAMETER  Declarations: 

INTEGER  MLMAX , MAXLAT , MAXLON , MLIDMX 

PARAMETER  (MLMAX=140,  MLIDMX=45) 

PARAMETER  (MAXLAT=3,  MAXLON=l) 

Local  Variable  Declarations: 

INTEGER  I , J 

COMMON  Blocks:  /MOLCON/ , /MOLDAT/ 
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BLOCK  DATA  N02BD 


PARAMETER  Declarations: 

INTEGER  NMAX 

PARAMETER  (NMAX=7176) 

Local  Variable  Declarations : 

INTEGER  I 

COMMON  Blocks:  /N02XS/ 


COMMON  Blocks: 

BLOCK  DATA 

/02C/ 

02CBD 

BLOCK  DATA 

02UVBD 

Local  Variable 

Declarations : 

INTEGER 

I 

COMMON  Blocks: 

/HERZBG/ , /SHURUN/ 

BLOCK  DATA  03CWBD 

PARAMETER  Declarations: 

INTEGER 

NMAX 

PARAMETER 

(NMAX=3080) 

Local  Variable  Declarations: 

INTEGER 

I 

COMMON  Blocks: 

/03CWB/ 

BLOCK  DATA  03HHBD 


Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /03HHB/ 
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BLOCK  DATA  OCNTBD 


Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /TMPOCN/ 


BLOCK  DATA  PHFGBD 


PARAMETER  Declarations: 

INTEGER  NWLAER.NANG 

PARAMETER  ( NWLAER=4  7  ,  NANG=  6  5 ) 

Local  Variable  Declarations: 

INTEGER  J , K 

COMMON  Blocks:  /PHFFOG/ 


BLOCK  DATA  PHHYBD 


PARAMETER  Declarations: 

INTEGER  NWLCLD 

PARAMETER  ( NWLCLD=7  9 ) 

Local  Variable  Declarations : 

INTEGER  J 

COMMON  Blocks:  /PHHYDR/ 


BLOCK  DATA  PHMABD 


PARAMETER  Declarations: 

INTEGER  NANG 

PARAMETER  (NANG=65) 

Local  Variable  Declarations : 

INTEGER  J,K 

COMMON  Blocks:  /PHFMAR/ 


BLOCK  DATA  PHOCBD 


PARAMETER  Declarations: 

INTEGER  NANG 

PARAMETER  (NANG=65) 

Local  Variable  Declarations : 

INTEGER  J,K 

COMMON  Blocks:  /PHFOCE/ 


BLOCK  DATA  PHRUBD 


PARAMETER  Declarations: 

INTEGER  NANG 

PARAMETER  ( NANG=  6  5 ) 

Local  Variable  Declarations: 

INTEGER  J,K 

COMMON  Blocks:  /PHFRUR/ 


BLOCK  DATA  PHSTBD 


PARAMETER  Declarations: 

INTEGER  NANG 

PARAMETER  { NANG=  6  5 ) 

Local  Variable  Declarations : 

INTEGER  J,K 

COMMON  Blocks:  /PHFSTR/ 


BLOCK  DATA  PHTRBD 


PARAMETER  Declarations: 

INTEGER  NANG 

PARAMETER  ( NANG=  6  5  ) 

Local  Variable  Declarations: 

INTEGER  J,K 

COMMON  Blocks:  /PHFTRP/ 
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BLOCK  DATA  PHURBD 


PARAMETER  Declarations; 

INTEGER  NANG 

PARAMETER  (NANG=65) 

Local  Variable  Declarations: 

INTEGER  J,K 

COMMON  Blocks:  /PHFURB/ 


BLOCK  DATA 

RAINED 

PARAMETER  Declarations : 

INTEGER  NWLCLD 

PARAMETER  (NWLCLD=7  9 ) 

Local  Variable 

Declarations : 

INTEGER 

J 

COMMON  Blocks: 

/RAINTP/ , /RAINWL/ 

BLOCK  DATA 

REFRBD 

Local  Variable 

Declarations : 

INTEGER 

L 

COMMON  Blocks: 

/MMWREF/ 

BLOCK  DATA  SCENBD 

PARAMETER  Declarations: 

INTEGER  NSCEN , NMATL 

PARAMETER  {NSCEN=35,  NMATL=28) 

Local  Variable  Declarations: 

INTEGER  K 

COMMON  Blocks:  /SCENES/ 


BLOCK  DATA  SICEBD 


Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /SICEDT/ 


BLOCK  DATA  SNOWBD 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /SNWDAT/ 


BLOCK  DATA  S02BD 


PARAMETER  Declarations: 

INTEGER  NMAX 

PARAMETER  (NMAX=5562) 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /S02XS/ 


BLOCK  DATA  SLRIBD 


Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /SOLIRl/ 


BLOCK  DATA  SLR2BD 


Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /SOLIR2/ 
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BLOCK  DATA  SLR3BD 


Local  Variable  Declarations: 

»  INTEGER  I 

COMMON  Blocks:  /SOLIR3/ 


BLOCK  DATA  SLR4BD 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /SOLIR4/ 


BLOCK  DATA  SLR5BD 


Local  Variable  Declarations : 

INTEGER  I 

COMMON  Blocks:  /S0LIR5/ 


BLOCK  DATA  STMLBD 


PARAMETER  Declarations: 

INTEGER  NL 

PARAMETER  {NL=50) 


Local  Variable  Declarations: 

INTEGER  L 

COMMON  Blocks:  /STDMOL/ 


BLOCK  DATA  UFTPBD 

Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks :  /UFTAPE/ 
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BLOCK  DATA  UPPRBD 


PARAMETER  Declarations: 

INTEGER  MAXLAT , MAXLON , NLUPR , NTEXO 

PARAMETER  (MAXLAT=3,  MAXLON=l,  NLUPR=8,  NTEXO=ll) 


Local  Variable  Declarations: 

INTEGER  L 

COMMON  Blocks:  /UPRATM/ 


COMMON  Blocks: 

BLOCK  DATA  VIRLBD 

/VIRDAT/ 

BLOCK  DATA  WTRBD 

PARAMETER  Declarations: 

INTEGER 

NWLWTR,NFRQ 

PARAMETER 

(NWLWTR=169,  NFRQ=28) 

Local  Variable  Declarations: 

INTEGER 

I 

COMMON  Blocks: 

/INDXWR/ 

BLOCK  DATA  ZODIBD 

Local  Variable 

Declarations : 

INTEGER 

I 

COMMON  Blocks : 

/SILEMS/ 

BLOCK  DATA  ZOD2BD 


Local  Variable  Declarations: 

INTEGER  I 

COMMON  Blocks:  /ZODBND/ , / ZPLANE/ 


> 
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PROGRAM  ASCBIN 


PARAMETER  Declarations : 


INTEGER  MOLMAX 

PARAMETER  { MOLMAX= 2  6 ) 

INTRINSIC  and  EXTERNAL  Declarations: 


CHARACTER*! 
CHARACTER* 72 
EXTERNAL 


UPCASE 

lOERR 

CONVAB , TABLEA , TABLEB , TABLEH , DEVCBD , FILRT , 
SETFIL, PROMPT, CONFIG, UPCASE, IOERR,CNSTNT 


Local  Variable  Declarations: 


INTEGER 
CHARACTER*! 
CHARACTER* 40 
CHARACTER* 80 


K , KTER , IWORK , IFBIN , JASC , JTBL , lERR , lOS 
CX 

FILjERT 

FILENMd?)  ,FILBIN 


COMMON  Blocks: 


/DEVCNM/ , /DEVICE/ 


SUBROUTINE  CONVAB 


Argiiment  Declarations: 


ICONV 


IFBIN 

FILBIN 

IFASC 

FILASC 

lERR 


INTEGER  Variable  (Input)  -  Index  for  type  of  conversion 
ICONV  =  0  implies  a  binary  to  ASCII  conversion 
Otherwise,  an  ASCII  to  binary  conversion 
INTEGER  Variable  (Input)  -  Binary  file  unit  number 
CHARACTER* (* )  Variable  (Input)  -  Binary  file  name 
INTEGER  Variable  (Input)  -  ASCII  file  unit  number 
CHARACTER*  (* )  Variable  (Input)  ASCII  file  name 
INTEGER  Variable  (Output)  -  Error  index 


PARAMETER  Declarations: 

INTEGER  NVSMAX , NGMAX 

PARAMETER  (NVSMAX=20,  NGMAX=15) 

INTRINSIC  and  EXTERNAL  Declarations: 


CHARACTER* 7 2  lOERR 

EXTERNAL  SETFIL , lOERR 


Local  Variable  Declarations: 


INTEGER 


REAL 

CHARACTER*! 
CHARACTER* 40 
CHARACTER* 80 


NHDR(2)  ,NVAR(NGMAX)  ,  IV,  IVSET,  IVS ,  IG, NVSET , 
NVS (NVSMAX) ,IH,IOS,ITER, JTER,IHDR{2000) , 
NGEOM, IVSETX, IVSX, IGEOM 
HDR(2500) ,VAR{10000) 

DUMMY 

HEADNG 

TITLE 


COMMON  Blocks:  None 


SUBROUTINE  SETFIL 


Argiiment  Declarations: 

NFILE  -  INTEGER  Variable  (Input)  -  File  unit  number 
FILNAM  -  CHARACTER* (*)  Variable  (Input)  -  File  name 
lERR  -  INTEGER  Variable  (Output)  -  Error  index 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

EXTERNAL  lOERR 

Local  Variable  Declarations: 

INTEGER  I OS 

LOGICAL  FXST 

CHARACTER* 1 1  FMT ( 2 ) 

COMMON  Blocks:  None 


SUBROUTINE  SLITFN 


Argument  Declarations: 


X 

SLIT 

SUM 

VP 

DVP 

NDV 

NDAT 

V 

DV 

RESOL 


REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Element 
of  variables  being  convolved  with  slit  function 
REAL  Array  (Dim  =  NDV  x  Unspecified)  ( Input /Output )  - 

Running  of  convolved  value  (temporary  storage) 

REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Running 

integral  of  slit  function  (temporary  storage) 

REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Previous 
wavenumbers  (cm"^) 

REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Previous 

spectral  increment  (cm"^) 

INTEGER  Variable  (Input)  -  Maximum  number  of  spectral  points 
INTEGER  Variable  (Input)  -  Number  of  data  sets 
REAL  Variable  (Input)  -  Wavenumber  (cm’^) 

REAL  Variable  (Input)  -  Spectral  increment  (cm“^) 

REAL  Variable  (Input)  -  Slit  full  width  at  half  maximum  (cm'^) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTRINSIC  MAX,ABS 

Local  Variable  Declarations: 


INTEGER  I,J/IP 

REAL  WGT 


COMMON  Blocks :  None 
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SUBROUTINE  TABLEA 


Argument  Declarations: 

IFATM  -  INTEGER  Variable  (Input)  -  Source  binary  file  number 
IFTBL  -  INTEGER  Variable  (Input)  -  Tabular  file  unit  niimber 

PARAMETER  Declarations : 

INTEGER  NAZMAX , NASMAX , MLMAX , NGMAX , NZSMAX , MAXLAT , MAXLON , 

I SMX , NVSMAX , MOLMAX , NDV , NSLTD 

PARAMETER  (NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 

PARAMETER  (MLMAX=140,  MAXLAT=3 ,  MAXLON=l) 

PARAMETER  ( MOLMAX=2  6 ,  I SMX=MOLMAX+  8 ) 

PARAMETER  (NVSMAX=20,  NDV=200,  NSLTD=5) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  FILTER 

CHARACTER* 4  UPCASE 

CHARACTER* 72  lOERR 

INTRINSIC  MOD 

EXTERNAL  GETHDR, PROMPT , lOERR, FILTER, SLITFN, UPCASE, RDFLTR 

Local  Variable  Declarations: 

INTEGER  IPRNT, M, KAZ,MM,MMP, IG, IVP, K, IOS,NBCKZ,MLO , 

NVAR(NGMAX) , IGEOM, IGX, JMOD, IFLTR, IV, IVS 
real  TAUSH (NASMAX, NZSMAX) , RADSH (NASMAX, NZSMAX) , FLTR, 

RADT(NAZMAX) , WL , VWL , RADSE (NASMAX, NZSMAX) , 
RADSS (NASMAX, NZSMAX) , RADSC (NASMAX, NZSMAX) , 
RDSLST (NAZMAX) ,DV(NDV) , RDSLSB (NAZMAX) ,RESX, 
RADBE (NAZMAX) , TAUT (NAZMAX) , SIGMET (NAZMAX) , 
RADBR (NAZMAX) , RADSD (NAZMAX) , RADLNT (NAZMAX) , 
ZBCKZ (MLMAX) , DRADT ( NAZMAX ) , TAUSCT (NAZMAX) , 
TAUB (NAZMAX) , RADB (NAZMAX) , TAUSCB (NAZMAX) , 
RADSLT (NAZMAX) , DRADB (NAZMAX) , SUM (NSLTD) , 

SWBCK ( MLMAX , NGMAX ) , TBCK ( MLMAX , MAXLAT , MAXLON ) , 
ZL (MLMAX) ,SIGMEB (NAZMAX) , SLIT (NDV, NSLTD) ,DV0, 
XSLIT(NSLTD) ,SUMSLT(NDV) ,V(NDV) , RES , RESWL , VO , 
LATST (MAXLAT) , LONST (MAXLON) 

CHARACTER  *  2  4  TFLTR 

CHARACTER* 40  HEADNG 

CHARACTER*80  TITLE, FILENM 

COMMON  Blocks :  /HEADER/ 
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SUBROUTINE  TABLEB 


Argument  Declarations: 

IFBCK  -  INTEGER  Variable  (Input)  -  Background  binary  file  number 
IFTBL  -  INTEGER  Variable  (Input)  -  Tabular  file  unit  number 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NAZMAX ,  NASMAX ,  MLMAX ,  NGMAX ,  NZ  SMAX ,  MAXLAT ,  MAXLON , 
I SMX , NVSMAX , MO UMAX , NDV , NSLTD 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  MAXLAT=3,  MAXLON=l ) 

(MOLMAX=2  6 ,  ISMX=MOLMAX+8 ) 

(NVSMAX=20,  NDV=200,  NSLTD=5) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

CHARACTER*4 

CHARACTER*72 

INTRINSIC 

EXTERNAL 


FILTER 

UPCASE 

lOERR 

MOD 

GETHDR, PROMPT, I OERR, FILTER, SLITFN, UPCASE , RDFLTR 


Local  Variable  Declarations: 


INTEGER 

REAL 


CHARACTER*24 
CHARACTER* 40 
CHARACTER* 80 


IPRNT, IZ,M,KAZ, IZBCK, IG,MM, IV, K , NBCKZ , lOS , 

ML0,NVAR (NGMAX) , IGEOM, IGP, IVS , IVP , IFLTR, JMOD 
ZBCKZ ( MLMAX ) , TAUBZ { NAZMAX , MLMAX ) , RES , RESWL , 
SIGMEZ  (NAZMAX,  MLMAX)  ,  TAUSCZ  (NAZMAX ,  MLMAX )  , 
RADBZ ( NAZMAX , MLMAX ) , WL , VWL , FLTR , RESX , 

DRADZ (NAZMAX, MLMAX) ,DV{NDV) , SUM (NSLTD) , 
RDSLBZ( NAZMAX, MLMAX) , RDLNBZ (NAZMAX , MLMAX) , 
RDSCBZ  (NAZMAX,  MLMAX)  ,  RADSHB  (NAZMAX,  MLMAX)  , 
RDSHSB ( NAZMAX , MLMAX ) , ZL ( MLMAX ) , VO , DVO , 

SWBCK  ( MLMAX ,  NGMAX )  ,  TBCK  ( MLMAX ,  MAXLAT ,  MAXLON )  , 
XSLIT (NSLTD) , SLIT (NDV, NSLTD) ,V(NDV) , 

SUMSLT (NDV) , LATST (MAXLAT) , LONST (MAXLON) 

TFLTR 

HEADNG 

TITLE, FILENM 


COMMON  Blocks: 


/HEADER/ 
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SUBROUTINE  TABLEH 


Argument  Declarations : 

IFHTR  -  INTEGER  Variable  (Input)  -  Heat  transfer  binary  file  number 
IFTBL  -  INTEGER  Variable  (Input)  -  Tabular  file  unit  number 

PARAMETER  Declarations : 

NAZMAX , NASMAX , NGMAX , NZ SMAX , MAXLAT , MAXLON , I SMX , 
NTIME , MLMAX , NVSMAX , MOLMAX 
{NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(NTIME=97,  NVSMAX=20) 

(MAXLAT=3,  MAXLON=l,  MLMAX=140) 

(MOLMAX=26,  ISMX=MOLMAX+8 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 72  lOERR 

INTRINSIC  MOD 

EXTERNAL  GETHDR, PROMPT , lOERR 

Local  Variable  Declarations: 

L,LO,KK,LL,IOS,ITM,IZ,NBCKZ,MLO,NVAR (NGMAX) , 
ITIM 

DECTIM{NTIME) , SOLEVX( NTIME, MAXLAT, MAXLON) , 

BSWZ (10, NTIME , MAXLAT , MAXLON ) , LATST ( MAXLAT ) , 
USWZ (10, NTIME , MAXLAT , MAXLON ) , LONST ( MAXLON ) , 
DSWZ (10, NTIME , MAXLAT , MAXLON ) , 

ULWZ (10, NTIME , MAXLAT , MAXLON ) , 

DLWZ (10, NTIME , MAXLAT , MAXLON ) , 

SWBCK (MLMAX, NGMAX) , ZBCKZ (MLMAX) ,ZLYR{10) , 

TLYR (10, NTIME , MAXLAT , MAXLON ) , 

RHLYR (10, NTIME , MAXLAT , MAXLON ) , 

SOLAZX ( NTIME , MAXLAT , MAXLON ) , ZL ( MLMAX ) , 

TBCK ( MLMAX , MAXLAT , MAXLON ) 

HEADNG 
TITLE 

/HEADER/ 


INTEGER 

REAL 


CHARACTER* 40 
CHARACTER* 80 

COMMON  Blocks : 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 
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SUBROUTINE  TABLET 


Argument  Declarations: 

IFTRN  -  INTEGER  Variable  (Input)  -  Molecular  transmittance  binary  file 
number 

IFTBL  -  INTEGER  Variable  (Input)  -  Tabular  file  unit  number 
PARAMETER  Dec lar a  t i ons : 

INTEGER  NAZMAX , NASMAX , NGMAX , NZ  SMAX , MAXLAT , MAXLON , I SMX , 

+  MLMTiJC ,  NVSMAX ,  MOLMAX ,  NSLTD ,  NDV ,  ML  IDMX ,  NSMX 

PARAMETER  (NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 

PARAMETER  (NVSMAX=20,  NSLTD=4,  NDV=200) 

PARAMETER  {MAXLAT=3,  MAXL0N=1,  MLMAX=140) 

PARAMETER  (MOLMAX=26,  ISMX=MOLMAX+8 ) 

PARAMETER  (MLIDMX=45,  NSMX=MLIDMX+8 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  FILTER 

CHARACTER* 4  UPCASE 

CHARACTER* 7 2  lOERR 

INTRINSIC  MOD , INT , MIN 

EXTERNAL  GETHDR, PROMPT, lOERR, FILTER, SLITFN, UPCASE , MOLNBD 

Local  Variable  Declarations : 


INTEGER 

+ 

+ 

REAL 

+ 

+ 

+ 


CHARACTER* 40 
CHARACTER* 80 


M,N,KAZ,MM,IG, IVP,K, lOS , NBCKZ , MLO , MOLX, IM, IMl , 
NVAR (NGMAX) , IGEOM, IGX, JMOD, IV, I VS, IM2 , IM3 , 
NMOLEC,MOLID(NSMX) , IM4 
WL , DV ( NDV ) , RESX , ZBCKZ ( MLMAX ) , RESWL , VO , 

SWBCK{MLMAX, NGMAX) ,SUMSLT(NDV) ,V(NDV) ,RES, 
TBCK ( MLMAX , MAXLAT , MAXLON ) , ZL ( MLMAX ) , 

SLIT (NDV, NSLTD) , DVO , XSLIT (NSLTD) , 
TAULR(NAZMAX) , SPCTRN ( ISMX, 3 , NAZMAX) , 

LATST ( MAXLAT ) , LONST ( MAXLON ) 

HEADNG 

TITLE 


COMMON  Bloclcs: 


/HEADER/ , /MOLNMX/ 


PROGRAM  BBTEMP 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NGMAX , NAZMAX , NASMAX , NZ  SMAX , MLMAX , MAXLAT , MAXLON , 
I SMX , NVSMAX , MOLMAX , MLIDMX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  MAXLAT=3,  MAXLON=l) 

(M0LMAX=26,  ISMX=M0LMAX+8,  MLIDMX=45) 
(NVSMAX=20) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

CHARACTER* 72 

INTRINSIC 

EXTERNAL 


INVPLK, FILTER 
lOERR 

REAL , DBLE , SQRT , COS , SIN 

CNSTNT,DEVCBD, SUMFIL,GETHDR, INVPLK, FILTER, 
RDFLTR, PROMPT, CONFIG, SETFLG, lOERR, FILRT 


Local  Variable  Declarations: 


INTEGER 

REAL 


DOUBLE  PRECISION 
CHARACTER* 2 4 
CHARACTER* 40 
CHARACTER* 50 
CHARACTER* 80 


lOS, IG,IV,MM,M, IFLTR,IVS,NBCKZ,MLO,NVAR(NGMAX) , 
IGP, IGEOM,IGX 

V,DV, ZBCK (MLMAX) , SWBCK (MLMAX, NGMAX) ,WL,TMP1, 
TAUT (NAZMAX) , TMP2 , DRADT (NAZMAX) , TMPBCK, WLl , 
RADSLT (NAZMAX) , RADBT (NAZMAX) , SIGMET (NAZMAX) , 
TAUSCT (NAZMAX) , RADLNT (NAZMAX) , TAUB (NAZMAX) , 
RADSH,SIGMEB (NAZMAX) , TMPDRT , TAUSCB (NAZMAX) , 
RADSD ( NAZMAX ) , VBAR , TMPSL , TMPLN , TMPSDT , RADSS , 
RDSLST (NAZMAX) , RDSLSB (NAZMAX) , RADB (NAZMAX) , 
RADBE ( NAZMAX ) , RADBR ( NAZMAX ) , TMPBE , TMPBR , WL2 , 
RADT (NAZMAX) , TAUl (NAZMAX) , TAU2 (NAZMAX) , RADSC , 
RADI (NAZMAX) , RAD2 (NAZMAX) , TMPSLT, TMPSLB, 
DRADTT (NAZMAX) , DRADBT (NAZMAX) , BW, BWL, DFLT, 
SGMETT (NAZMAX) , SGMEBT (NAZMAX) , ZL (MLMAX) , 
TASCTT (NAZMAX) , TASCBT (NAZMAX) , RADSDT (NAZMAX) , 
RDSLT (NAZMAX) , RDLNT (NAZMAX) , TMPDRB, DUM, 

RSLSTT (NAZMAX) , RADBET (NAZMAX) , RADBRT (NAZMAX) , 
TAUSH , TBCK ( MLMAX , MAXLAT , MAXLON ) , RADSE , 

DRADB (NAZMAX) , RSLSBT (NAZMAX) , LATST (MAXLAT) , 
LONST (MAXLON) 

RE,REPOL,REEQU 

TFLTR 

HEADNG,FILERT 

TLBL(18) 

TITLE , FILENM ( 14 ) , NFFLTR 


COMMON  Blocks: 


/CONSTN/ , /DEVICE/ , /FLAGS/  , /HEADER/ , /MOLECP/ , 
/USERNM/ 
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REAL  FUNCTION  INVPLK 


Argument  Declarations: 

RADNCE  ~  REAL  Variable  -  Radiance  (W/cm^/ sr /cm'M  . 
V  -  REAL  Variable  -  Wavenumber  (cm‘^) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , DELE , LOG 

Local  Variable  Declarations: 

DOUBLE  PRECISION  X,Y,C1,C2 

COMMON  Blocks:  /CONSTN/ 


SUBROUTINE  CNVJTK 


Argument  Declarations : 

JCHAR  -  CHARACTER* (* )  Vector  (Len  =  Unspecified)  -  MODTRAN  string 
KNDX  -  INTEGER  Vector  (Len  =  Unspecified)  -  MOSART  string 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

INTRINSIC  LEN 

EXTERNAL  lOERR 

Local  Variable  Declarations: 

INTEGER  K,IOS 

CHARACTER* 6  F 

COMMON  Blocks :  None 


SUBROUTINE  CRBKGD 


Argument  Declarations: 

IFUBK  -  INTEGER  Variable  (Input)  -  Background  file  number 
FILNAM  -  CHARACTER* (*)  Variable  (Input)  -  Input  file  name 
lERR  -  INTEGER  Variable  (Output)  -  Error  index 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

EXTERNAL  INBKBD , DEVCBD , lOERR 

Local  Variable  Declarations: 


INTEGER  I , lOS 

LOGICAL  FXSUBK 


COMMON  Blocks: 


/INBKGD/ , /MACHIN/ 
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PROGRAM  CRFILE 


¥ 


PARAMETER  Declarations: 

INTEGER  MOLMAX 

PARAMETER  ( MOLMAX= 2  6 ) 

INTRINSIC  and  EXTERNAL  Declarations: 


CHARACTER* 7 2 
EXTERNAL 


lOERR 

DEVCBD , FI LRT , MENU , CRINPT , CRFLTR , CRBKGD , CRUATM , 
CRUCLD , CRUAER , PROMPT , CONFIG , RDMDTN , lOERR 


Local  Variable  Declarations: 


INTEGER 
CHARACTER* 40 
CHARACTER* 80 

COMMON  Blocks: 


IWORK, lERR, lOS, INDXI 

FILERT 

FILENM(17) 

/DEVICE/ 


SUBROUTINE  CRFLTR 


Argument  Declarations: 

IFFLT  -  INTEGER  Variable  (Input)  -  Filter  response  file  number 
FILNAM  -  CHARACTER*!*)  Variable  (Input)  -  Input  file  name 
lERR  -  INTEGER  Variable  (Output)  -  Error  index 

INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 
CHARACTER*! 
CHARACTER* 7 2 
EXTERNAL 


LENSTR 

UPCASE 

lOERR 

INFLBD, DEVCBD, lOERR, PROMPT , UPCASE , LENSTR, LCTRIM 


Local  Variable  Declarations: 


INTEGER 

REAL 
LOGICAL 
CHARACTER*! 
CHARACTER* 2 
CHARACTER* 20 
CHARACTER* 2 4 
CHARACTER* 80 


I,IOS, IFLTSW,NFLTR, IFMOD,NF,NEW, IFT, I PRINT, 
KODE,NLOW, IFWV,NW, LENF 
WLF(200) , FLTR(200) ,TEMP 
FXSFLT 
RES PON 
WNL ( 0 : ! ) 

IDFIL 

TFLTR 

NFMOD 


COMMON  Blocks: 


/INFLTR/ , /MACHIN/ 
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SUBROUTINE  CRINPT 


Argument  Declarations: 

NILE  -  INTEGER  Variable  (Input)  -  File  number 

FILNAM  -  CHARACTER* (* )  Variable  (Input)  ~  Input  file  name 

lERR  -  INTEGER  Variable  (Output)  -  Error  index 


PARAMETER  Declarations : 

INTEGER  NGMAX 

PARAMETER  (NGMAX=15) 

INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

CHARACTER*! 
CHARACTER* 7 2 
EXTERNAL 


GETVAR 

UPCASE,LWCASE 

lOERR 

INPTBD , DEVCBD , MENU , LCTRIM , GETVAR , UPCASE , LWCASE , 
lOERR , PROMPT , CRUATM , MONTH , IGTINT , CALEND , 
CHTIME 


Local  Variable  Declarations: 


INTEGER 
REAL 
LOGICAL 
CHARACTER*! 
CHARACTER* 40 
CHARACTER* 80 


I, J, lOS, IMENU(154) ,LENX 

HO , HS , SLRNG , BETA , PHIO , PHIS , HT 

FXSFIL 

RES  PON , BLANK , VI , V2 
VARIAB,  VX,  VY,  VZ  ,  VU,  W,  VL 
STRING 


COMMON  Blocks: 


/HEADER/ , /INPNDX/ , /INPTDT/ , /MACHIN/ 


SUBROUTINE  CRUAER 


Argument  Declarations: 

IFUAR  -  INTEGER  Variable  (Input)  -  Aerosol  file  number 
FILNAM  -  CHARACTER* (* )  Variable  (Input)  -  Input  file  name 
lERR  -  INTEGER  Variable  (Output)  -  Error  index 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER*  7  2  lOERR 

EXTERNAL  INARBD , DEVCBD , lOERR 

Local  Variable  Declarations : 

INTEGER 
LOGICAL 

COMMON  Blocks: 


I,  lOS 
FXSUAR 

/INUAER/ , /MACHIN/ 
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SUBROUTINE  CRUATM 


Argument  Declarations: 

IFUAT  -  INTEGER  Variable  (Input)  -  Atmosphere  file  number 
FILNAM  -  CHARACTER* (* )  Variable  (Input)  -  Input  file  name 
lERR  -  INTEGER  Variable  (Output)  -  Error  index 

FLUATM  -  LOGICAL  Variable  (Input)  -  Flag  for  creation  of  separate 
user-defined  atmosphere  file 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

INTRINS IC  INDEX , REAL , LEN , INT , MAX 

EXTERNAL  INPTBD , DEVCBD , lOERR , MSAG , PROMPT , CHTIME , CALEND , 

GETVAR, IGTINT,UPCASE 


Local  Variable  Declarations: 


INTEGER 
LOGICAL 
CHARACTER* 50 


I,IOS 
FXSUAT 
INPATM ( 2 ) 


COMMON  Bloc)cs  :  /HEADER/  ,  / INPNDX/  ,  /INPTDT/  ,  /MACHIN/ 


SUBROUTINE  CRUCLD 


Argument  Declarations : 

IFUCL  -  INTEGER  Variable  (Input)  -  Hydrometeor  file  number 
FILNAM  -  CHARACTER* (* )  Variable  (Input)  -  Input  file  name 
lERR  -  INTEGER  Variable  (Output)  -  Error  index 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER*  7  2  lOERR 

EXTERNAL  INCLBD, DEVCBD, lOERR 

Local  Variable  Declarations: 

INTEGER  I , lOS 

LOGICAL  FXSUCL 

COMMON  Bloclcs:  /INUCLD/ , /MACHIN/ 


BLOCK  DATA  INARBD 


Local  Variable  Declaration 
INTEGER  I 

COMMON  Bloclcs:  /INUAER/ 
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BLOCK  DATA  INBKBD 


Local  Variable  Declaration 
INTEGER  I 

COMMON  Blocks:  /INBKGD/ 


> 


BLOCK  DATA  INCLBD 
COMMON  Blocks:  /INUCLD/ 


SUBROUTINE  MDRI 


PARAMETER  Declarations: 

INTEGER  MOLMAX 

PARAMETER  (MOLMAX=26) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  AFTERP , DNO , OHCALC , POZONE , SINTRP , TDEP , VP 

EXTERNAL  AFTERP , DNCALC , DNO , DREAD , GTD6 , INTERP , OHCALC , 

+  POZONE,  SINTRP,  SUI'U  TDEP ,  VP ,  DEVCBD,  NRLBD 


Local  Variable  Declarations: 


INTEGER 

REAL 

+ 

+ 

+ 

+ 

+ 

+ 

+ 

+ 


+ 

CHARACTER*  80 


K,KMAX,IXM,IXP 

D(8)  ,T(2)  ,ALT,  APNO,AR72,  AR90,CNO,CNODAY,CNONIT, 
C02AR, C02MIX, CONC, D40 , DAYAV, DAYO, DAY03 , 

DENORM , DENS , DENS  8 , DN , FLUXC  2 , FLUXNO , 
H80,0272,0280,0290,0372,0380,080,086,ODMS72 , 
ODNR72 , 0H72 , OH80 , ORATIO, PMBAR, PREVKP , RIS , RLAT, 
RN0100,RN090,RRLAT, SET, SUNRIS , SUNSET , 

TEMP  8  0 , TINF , TK , TMP , TOTN , TROPHT , TROPT , VALUE , 
W1,W2,WT,X120,X150,X300,X90,X03D,X03D80, 

X03N , X03N8  0 , XOD , X0D8  0 , XON , XON8  0 , NITEO , NITE03 , 
SOD (46) , SON (46) ,S03D(46) ,S03N(46) ,N280,N272, 
N290,T8,D8 
FILENM 


COMMON  Blocks: 


/DEVCNM/ , /NRLFIL/ , /SPECIE/ 
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SUBROUTINE  MENU 


Argiiment  Declarations : 

IMENU  -  INTEGER  Variable  (Input)  -  Menu  index 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

EXTERNAL  CHRCBD , PROMPT , lOERR 

Local  Variable  Declarations; 

INTEGER  IS (24) , IM(24) , I, J, lOS 

CHARACTER*!  DUMMY 

CHARACTER*!  DASH 

CHARACTER*  3  CHMNTH ( 12 ) 

CHARACTER*!  CHAER(0:19) 

CHARACTER*!  CHATM(0:10) ,CHAZE(0:9) ,CHSEA(0:10) ,CHMES(0:2) 

CHARACTER* 3 9  SEAS (4) 

COMMON  Blocks:  /CHRCNM/ 


SUBROUTINE  MSAG 

Argument  Declarations: 

AP  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Geomagnetic  planetary 

indices 

F107  -  REAL  Variable  (Input)  -  Solar  Flux  at  10.2  cm 

F107A  -  REAL  Variable  (Input)  -  3 -month  mean  value  of  solar  flux 

XLAT  -  REAL  Variable  (Input)  -  Latitude 

XLONG  -  REAL  Variable  (Input)  -  Longitude 

IDAY  -  INTEGER  Variable  (Input)  -  Day  of  the  month 

MONTH  -  INTEGER  Variable  (Input)  -  Month  of  the  year 

lYEAR  -  INTEGER  Variable  (Input)  -  Year  ^ 

TIME  -  REAL  Variable  (Input)  -  Time  (decimal)  local  standard  (LST)  or 
Greenwich  mean  (GMT) 

ITIME  -  INTEGER  Variable  (Input)  -  Time  index 

ITIME  =  0  implies  local  standard  time 
ITIME  =  1  implies  Greenwich  mean  time 
ITIME  =  2  implies  local  dayligth  saving  time 
SUNRIS  -  REAL  Variable  (Output)  -  Sunrise  (hour) 

SUNSET  -  REAL  Variable  (Output)  -  Sunset  (hour) 

Continuous  day  if  SUNRIS  =  SUNSET  =  0.0 
Continuous  night  if  SUNRIS  =  SUNSET  =24.0 
ORATIO  -  REAL  Variable  (Output)  -  72  km  MSIS/NRL  0  atom  ratio 

TMPEXO  -  REAL  Variable  (Output)  -  Exospheric  temperature  (K) 

IFUAT  -  INTEGER  Variable  (Output)  -  Output  file  index 

INTRINSIC  and  EXTERNAL  Declarations : 

DOUBLE  PRECISION  EPHTIM 

INTRINSIC  REAL , MOD 

EXTERNAL  MDRI , EPHTIM , CALEND 

Local  Variable  Declarations : 

INTEGER  JULDAY 

real  DYEAR , UT , XLST 

COMMON  Blocks:  None 


301 


BLOCK  DATA  NRLBD 


Local  Variable  Declarations : 


INTEGER 


I 


COMMON  Blocks: 


/NRLDEV/ , /NRLFIL/ , /SPECIE/ 


SUBROUTINE  RDMDTN 


Argument  Declarations: 

IFILE  -  INTEGER  Variable  (Input)  -  File  number 

FILENM  -  CHARACTER* (* )  Variable  (Input)  -  MOSART  input  file  name 
PARAMETER  Declarations : 


INTEGER  NGMAX,NVSMAX,MLUSR,MOLMAX 

PARAMETER  (NGMAX=15,  NVSMAX=20,  MLUSR=34,  MOLMAX=26) 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

INTRINSIC  REAL, MIN, AINT 

EXTERNAL  PROMPT , INPTBD , CNVJTK, lOERR 

Local  Variable  Declarations: 


INTEGER 


REAL 


LOGICAL 
CHARACTER*! 
CHARACTER*2 
CHARACTER* 3 
CHARACTER*  6 
CHARACTER* 10 
CHARACTER* 12 
CHARACTER* 3 2 
CHARACTER* 40 
CHARACTER* 7 2 
CHARACTER* 80 


I , J , K , L , I VI , IV2 , IDV , IFWHM , IRPT , I VS , IGEOM , I S , IN , 
ID ,  MODEL ,  ITYPE ,  lEMSCT ,  Ml ,  M2  ,  M3  ,  M4  ,  M5  ,  M6  ,  MDEF , 
IRDl , IRD2 , IM, NOPRT, IHAZE , ISEASN, IVULCN, IG, 
ICSTL, ICLD, IVSA, IREG (4) , IMULT,NGEOM,NVS, 
ISEED, lYEAR, IDAY, ISOURC,ML, IPARM, IPH,NANGLS, 
NATM(0:7) , NVSl , NVS2 , NCLD ( 0 : 11 ) ,IOS,MP,MT, 

IHAl (MLUSR) , ICLDl (MLUSR) , IVULl (MLUSR) , 
ISEAl(MLUSR) , ICHRl (MLUSR) , KNDX ( 2 0 , MLUSR) , 

I AERO , I Z  ERO , MC ( MOLMAX ) 

TBOUND , SALB , VI S , WSS , WHH , RAINRT , CTHIK , CALT , 

CEXT , HOBS ( NGMAX ) , HSRC ( NGMAX ) , XLAT , XLON , 

PHIOBS (NGMAX) , SLROS (NGMAX) , BETAOS (NGMAX) , 

LENP (NGMAX) , VI (NVSMAX) , V2 (NVSMAX) ,DV(NVSMAX) , 
HBCK , SOLDIS , SOLAT , SOLON, AZIM , AWCCON , 

SOLAZ , SOLZEN , AHR , SEC , ZCVSA , ZTVSA , ZERO , CN2 , 
ZINVSA,RO, ANGLEM,AMN,TIME,G,ANGF (50) , 

F(4, 50) ,AHAZE (MLUSR) , EQLWCZ (MLUSR) ,AZDUM, 
RRATZ (MLUSR) , ZMDL (MLUSR) , P (MLUSR) , T (MLUSR) , 
WMOL ( 12 , MLUSR) , CLALTB ( 3 ) , CLALTT ( 3 ) 

FLSUB ( 17 ) , MODTRN 
JCHAR( 14, MLUSR) 

TYGEOM (NGMAX) 

RESPON(4) 

MONTH 

CHGEOM(NGMAX,5) 

CHATM (0:7), CHSEA (0:7), CHAZE (0:8), CHAERl (0:10), 

TITAER 

HEADNG 

HMODEL 

NFMODT , DUMMY ( 8 ) , INSTR(153) 


COMMON  Blocks: 


/INPNDX/, /INPTDT/ 
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PROGRAM  FACET 


PARAMETER  Declarations : 


INTEGER 


PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NNMAX , NRMAX , NAZMAX , NASMAX , NGMAX , NZ  SMAX , MAXLAT , 
MAXLON , I SMX , NVSMAX , MLMAX , MOLMAX , NRFMAX , 
NSPCT , NZSH , MLIDMX 
(NNMAX=3,  NRMAX=4,  MLMAX=140) 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MAXLAT=3,  MAXLON=l,  NVSMAX=20) 

(M0LMAX=26,  ISMX=M0LMAX+8,  MLIDMX=45) 
(NRFMAX=80,  NSPCT=181,  NZSH=361) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

CHARACTER* 3 
CHARACTER* 4 
CHARACTER* 7 2 
INTRINSIC 

EXTERNAL 


GETVAR, SHADOW, FILTER, XTERP, SURFAC 

UPCASE 

LWCASE 

lOERR 

CMPLX ,  SQRT ,  COS ,  S  IN ,  ACOS ,  ATAN2  ,  REAL ,  INT ,  MAX ,  MIN , 
ABS 

GETVAR , RDLINE , PARSE , UPCASE , SURFAC , CONFIG , 
CNSTNT, SHADOW, FILTER, RDFLTR, DEVCBD, INFLBD, 
LWCASE , XTERP , SETFLG , SUMFIL , GETHDR 


Local  Variable  Declarations: 


INTEGER 


REAL 


LOGICAL 
CHARACTER*! 
CHARACTER* 2 4 
CHARACTER* 2 5 
CHARACTER* 40 
CHARACTER* 80 
CHARACTER* 255 


I,K,M,N,NBCKZ,MLO,NVAR(NGMAX) , lOS, 

NN, IGEOM,MM, IV, IVS , IG, NPHI , NTHETA, IP, IT, 
IFLTR,MINV,NSPCTP,NZSHP, IGRID 
XNORM (NNMAX) , RINDEX, I INDEX, ZBCK (MLMAX) ,V,DV, 
SWBCK (MLMAX, NGMAX) , S IGNAT (NAZMAX) , 

TBCK (MLMAX, MAXLAT, MAXLON) ,ZL(MLMAX) ,A,B, 

TAUT (NAZMAX) , SIGMET (NAZMAX) , TAUSCT (NAZMAX) , 
RADT (NAZMAX) , RADSLT (NAZMAX) , RADLNT ( NAZMAX ) , 
TAUB (NAZMAX) , SIGMEB (NAZMAX) , TAUSCB (NAZMAX) , 
RADB (NAZMAX) , DRADT (NAZMAX) , DRADB (NAZMAX) , 
RDSLST (NAZMAX) , RDSLSB (NAZMAX) , RADBE (NAZMAX) , 
RADBR (NAZMAX) , RADSD ( NAZMAX ) , FLTR, VPM, VPP, 
TAREA ( NGMAX , NAZMAX ) , BKGD ( NGMAX , NAZMAX ) , UP , VP , 
TAUSH (NASMAX, NZSMAX) , CNTRST , DUMAZ (NZSMAX) , 
RADSH (NASMAX, NZSMAX) , SNORM ( 3 ) , PROJA, TNORM, 
RADSE (NASMAX, NZSMAX) , APPS (NGMAX , NAZMAX) , 

PATH (NGMAX, NAZMAX) ,DPHI,DTHETA,ASH(NZSH) , 

RADS S (NASMAX, NZSMAX) , DAREA, DUM, OBS ( 3 ) ,WL2, 
RADSC (NASMAX, NZSMAX) , RCNTR, PSH (NSPCT) ,WL1, 
RADSHN (NSPCT, NZSH) , ECCEN, LATST (MAXLAT) , 
RSH(NZSH) ,PSHI (NASMAX) ,BW(NGMAX) , 

BWL (NGMAX) , RSHM (NASMAX, NZSH) , LONST (MAXLON) 
FLTMP 
DOT , DUMMY 

TFLTR, TFLTRO , TFLTRX, GRID ( 3 ) , REFT ( 3 ) , RGH ( 2 ) 
SHAPE ( 4 ) 

VRDATA (NRMAX ) , HEADNG , NFFCT 
TITLE 

VARIAB , FILENM , FILNAM 


COMMON  Blocks :  /CONSTN/ , /DEVICE/ , /HEADER/ , /MATRLD/ , /MOLECP/ , 

/USERNM/ 
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REAL  FUNCTION  ROUGH 

Argument  Declarations : 

HSIGMA  -  REAL  Variable  -  Standard  deviation  of  the  heights  on  the 
reflective  surface 

WL  -  REAL  Variable  -  Wavelength  (same  units  as  HSIGMA) 

PSI  -  REAL  Variable  -  Elevation  angle  at  the  surface  (deg) 

ITYPE  -  INTEGER  Variable  -  Type  of  surface 

ITYPE  =  0  implies  a  plane  wave  on  a  Gaussian  distribution 
of  stepped  surfaces 

Otherwise,  it  implies  a  spherical  wave  on  a  Gaussian 
distribution  of  sinusoidal  surfaces 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  EHBSLO 

INTRINSIC  SIN, EXP 

EXTERNAL  EHBSLO 

Local  Variable  Declarations: 

REAL  DUM 

COMMON  Blocks:  /CONSTN/ 
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REAL  FUNCTION  SURFAC 


Argument  Declarations: 


V 

DV 

XNORM 

HSOLAR 

SOLAZ 

SOLEV 

HLUNAR 

XLUNAZ 

XLUNEV 

HSHINE 

PHISH 

NASPCT 

NASMAX 

AZSH 

NAZSH 

TAU 

TAIR 

PHIRF 

AZIM 


REAL  Variable  (Input)  -  Wavenumber  {cm‘M 

REAL  Variable  (Input)  -  Wavenumber  increment  (cm“^) 

REAL  Vector  (Len  =  Unspecified)  -  Surface  normal  vector 
REAL  Variable  -  Spectral  solar  irradiance  (W/cmVcm’M 
REAL  Variable  -  Azimuth  angle  of  incident  solar  radiation  (deg) 
REAL  Variable  ~  Elevation  angle  of  incident  solar  radiation  (deg) 
REAL  Variable  -  Spectral  lunar  irradiance  (W/cmVcm'M 
REAL  Variable  -  Azimuth  angle  of  incident  lunar  radiation  (deg) 
REAL  Variable  ^  Elevation  angle  of  incident  lunar  radiation  (deg) 
REAL  Array  (Dim  =  NASMAX  x  Unspecified)  -  Skyshine  radiance 

(W/cmVsr/cm'^)  ^  n 

REAL  Vector  (Len  =  Unspecified)  -  Skyshine  elevation  angles  (deg) 
INTEGER  Variable  -  Number  of  skyshine  elevation  angles 
INTEGER  Variable  -  Maximum  number  of  skyshine  elevation  angles 
REAL  Vector  (Len  =  Unspecified)  ~  Skyshine  azimuth  angles  (deg) 
INTEGER  Variable  -  Number  of  skyshine  azimuths 
REAL  Variable  -  Transmittance  observer- facet 

REAL  Variable  -  Air  temperature  (K)  .  *u 

REAL  Variable  -  Elevation  angle  of  reflected  line  of  sight  at  the 

facet  (deg) 

REAL  Variable  -  Observer  azimuthal  angle  (deg) 


PARAMETER  Declarations: 

INTEGER  NRFMAX 

PARAMETER  ( NRFMAX=  8  0 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

XTERP , PLANCK, BDRF , SHADOW, ROUGH 
REFEST 

SQRT , REAL , DELE , DPROD , ABS , SIN , COS , MAX , MIN, CMPLX , 
ATAN2 , ACOS , AS IN 

XTERP , PLANCK , FRESNL , BDRF , REFEST , DIREMS , PROFAC , 
ROUGH 


REAL 

COMPLEX 

INTRINSIC 

EXTERNAL 


Local  Variable  Declarations : 

INTEGER  I,K, ITRPO , KEY, KEYP, M, MM, MP , MMM, MMP , NLAYER 

real  WL, REFLS , REFLL, RFN, EMIS , PLK, FAC , AZLUN , 

REFLX, EMV, EMH, TMPLYR (0:3), UOBS ( 3 ) , USOL ( 3 ) , 
ULUN ( 3 ) , POBS , PSOL , PLUN , XOBS , XSOL , XLUN , AZSOL , 
SLOPE , SHDWS , SHDWL , XOS , XOL , USHN ( 3 ) , XSHN , 

YNORMO , YNORMS , YNORML , FRACSP , DEP (0:3), ZNORM  ( 3 ) 
DOUBLE  PRECISION  EM,RF,RTERS,RTERL,RTERSH,DSNP,DAZSH 

_  ^  _ _ Ifi  /  O  \  l-lTtT-IT 


COMPLEX 


DIELEC , XMUC , INAIR ( 2 ) , INMAT (0 : 2) ,REFR, EPSX,RH, 
RV,TV,TH,EPSA 


COMMON  Blocks: 


/CONSTN/ , /MATRLD/ 


> 
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SUBROUTINE  CKSTAT 


Argument  Declarations: 

X  -  REAL  Variable  (Output)  -  Uninitialized  variable 

Y  -  REAL  Variable  (Output)  -  Static/dynamic  variable 

PARAMETER  Declarations: 

INTEGER  NMAX 

PARAMETER  ( NMAX=  500) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  ZSTAT 

INTRINSIC  MOD , REAL 

EXTERNAL  ZSTAT 

Local  Variable  Declarations: 

INTEGER  ICOUNT , KMOD 

REAL  Z(NMAX) 

COMMON  Blocks :  None 


REAL  FUNCTION  ZSTAT 

Argument  Declarations: 

I  -  INTEGER  Variable  -  Counter 

Local  Variable  Declarations : 

REAL  ZSTOR 

COMMON  Blocks :  None 


LOGICAL  FUNCTION  FLCOLl 

Argument  Declarations:  None 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

EXTERNAL  lOERR 

Local  Variable  Declarations: 

INTEGER  IFSCR,II, JJ(5) , lOS 

COMMON  Blocks :  None 


306 


PROGRAM  FPTEST 


PARAMETER  Declarations : 

INTEGER  MOLMAX 

PARAMETER  ( MOLMAX= 2  6 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTEGER  LRECHK 

LOGICAL  FLCOLl 

CHARACTER* 72  lOERR 

EXTERNAL  CNSTNT , CONFIG , TITLCR , DEVCBD , PROMPT , lOERR , 

CKSTAT , FLCOLl , LRECHK 

Local  Variable  Declarations: 

INTEGER  I , lOS , NRECL { 4 ) 

CIBM  INTEGER  lERR 

REAL  X1,X2,Y1,Y2 

LOGICAL  FLINI , FLSTA 

LOGICAL  FLREC 

CHARACTER*!  DUMMY 

CHARACTER* 3 2  ENDIAN ( 2 ) , CMPLMT ( 0 : 2 ) 

CHARACTER* 3 3  UNDFL(0:1) 

CHARACTER*47  ROUND{0:2) 

CHARACTER* 80  TITLE 

COMMON  Blocks :  /CONSTN/ , /DEVICE/ , /MACHIN/ 
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INTEGER  FUNCTION  LRECHK 


Argument  Declarations:  None 

NVAR  -  INTEGER  Variable  -  Number  of  variables  in  record 
NTYPE  -  CHARACTER* (* )  Variable  -  Type  of  variable  in  record 
1:  'INTEGER'  or  'INTEGER* 4' 

2:  'INTEGER*!' 

3:  'INTEGER* 2' 

4:  'REAL'  or  'REAL*4' 

5:  'REAL*8'  or  'DOUBLE  PRECISION' 

6:  'REAL*16' 

7 :  ' COMPLEX ' 

8:  'C0MPLEX*16'  or  'DOUBLE  COMPLEX’ 

9:  'COMPLEX*32' 

10:  'LOGICAL'  or  'LOGICAL*4' 

11:  'LOGICAL*!' 

12:  'LOGICAL*2' 

13:  'BYTE' 

14:  'BOOLEAN' 

15:  'CHARACTER' 

PARAMETER  Declarations : 


INTEGER 

MXLNRC,NLINES 

PARAMETER 

(MXLNRC=16384,  NLINES=10) 

INTRINSIC  and  EXTERNAL 

Declarations : 

CHARACTER* 7 2 

lOERR 

INTRINSIC 

INT ,  REAL ,  DELE ,  CMPLX ,  MOD ,  CHAR ,  ICHAR ,  MAX ,  AIMAG , 
LEN 

CDBL 

INTRINSIC 

DCMP LX,  DIMAG 

CIBM 

INTRINSIC 

QEXT , QCMPLX , QIMAG 

EXTERNAL 

lOERR 

Local 

Variable  Declarations: 

INTEGER 

I, J,K, IOS,NRECL,LREC, IFSCR, ITYPE, ICH,NLEN,NCH 
JTYPE (20), MBYTES (20), LRECMN , LRECMX 

CIBM 

INTEGER 

IERR,LRECL 

CINTl 

INTEGER*! 

11 (MXLNRC) 

INTEGER* 2 

12 (MXLNRC) 

CINT4 

INTEGER* 4 

14 (MXLNRC) 

REAL 

R4 (MXLNRC) 

CRL4 

REAL *4 

R4 (MXLNRC) 

CRL8 

REAL *8 

R8 (MXLNRC) 

CIBM 

REAL* 16 

R16 (MXLNRC) 

DOUBLE  PRECISION 

R8 (MXLNRC) 

COMPLEX 

C8 (MXLNRC) 

CCM8 

COMPLEX *8 

C8 (MXLNRC) 

CCM16 

COMPLEX* 16 

Cl 6 (MXLNRC) 

DOUBLE  COMPLEX 

Cl 6 (MXLNRC) 

CIBM 

COMPLEX* 32 

C32 (MXLNRC) 

LOGICAL 

L4 (MXLNRC) , FL4 

LOGICAL*! 

LI (MXLNRC) ,FL1 

CLOG2 

LOGICAL *2 

CLOG4 

LOGICAL *4 

L4 (MXLNRC) , FL4 

CHARACTER* 100 

CH( MXLNRC) 

BYTE 

B1 (MXLNRC) 

CUNV 

BOOLEAN 

BL( MXLNRC) 

COMMON  Blocks :  None 
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PRCX3RAM  INSTDB 


PARAMETER  Declarations; 

INTEGER  NTEMP , MLIDMX , MOLMAX 

PARAMETER  (NTEMP=5,  MLIDMX=45,  MOLMAX=26) 


INTRINSIC  and  EXTERNAL  Declarations; 


CHARACTER*! 
CHARACTER* 7 2 
INTRINSIC 
CMIL  INTRINSIC 
EXTERNAL 
CIBMV  EXTERNAL 


UPCASE 

lOERR 

INT ,  INDEX ,  LEN ,  MOD ,  REAL 


MVBITS 

DEVCBD, PROMPT, CONFIG, UPCASE, lOERR, MOLBND, LCTRIM, RDSCN 
FILEINF 


Local  Variable  Declarations: 


INTEGER 


CINTl  INTEGER*! 

INTEGER* 2 
INTEGER* 2 
CINT  INTEGER 


CMIL  INTEGER 
CIBMV  INTEGER 
REAL 


CHARACTER*! 
CHARACTER* 10 
CHARACTER* 17 
CHARACTER* 80 
CHARACTER* 120 
LOGICAL 


I , J , K , NREC , IFSEQ , lOS , N , NALT , ICKSUM , LAT , LON , 
NMOLEC , MOLID , NVA, IVA ( 3  0 )  , ICHK, IXM, IDUM, lYM 
IBIN(250) , IALF(250) , IMOL(250) , IPARAM{295) , 
IFREQ(295) , IT, IBLK, IBNDWD, IBLOCK,MTEMP, JBK 
IBK(6, 6) , IWTR{6, 6) 

IBK(6,6) ,IWTR(6,6) 
lALT (6,6) 
lALT (6,6) 

IBK(6,6) 

IWTR (6,6) 

IFLD (6,6) 
lERBMD 

SD(NTEMP) ,OD(NTEMP) ,CD(NTEMP) ,DUM, V,DV,ALF, 
VA(30) ,VB(30) ,CIRR,SNOW,TERR,TSRF(2) , 
CLCV(2,0;3,2) , XLAT, XLON, CLDRAD (2 , 3 , 2 ) , 

GMT (2, 2) ,TBAND (NTEMP) , SDU (NTEMP , 250 ) , 

ODU ( NTEMP ,250), ALTIT , FRWTR 
RES PON, YES 
LBMNTH 

MOLNAM (MLIDMX) 

FILENM(12) ,FILNMS,FILNMG,FILNMU 
NFILE 

DEFALT, FLXST 


COMMON  Blocks; 


/DEVCNM/ , /DEVICE/ 


► 
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SUBROUTINE  ATMINT 


Argument  Declarations: 


NV 

IFLTR 

VI 

VF 

BW 

BWL 

NAZ 

NAZSH 

NASPCT 

NGEOM 


INTEGER  Variable  (Input)  -  Number  of  spectral  records 
INTEGER  Variable  (Input)  -  Filter  index 

Refer  to  User  Reference  Manual  for  definition. 

REAL  Variable  (Input)  -  Initial  wavenumber  (cm‘M 
REAL  Variable  (Input)  -  Final  wavenumber  (cm'^) 

REAL  Variable  (Output)  -  Effective  bandwidth  (cm'^) 

REAL  Variable  (Output)  -  Effective  bandwidth  (pm) 
INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Number  of 
azimuths  for  each  geometry 

INTEGER  Variable  (Input)  -  Number  of  skyshine  azimuths 
INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Number  of 
sky/earthshine  angles 

INTEGER  Variable  (Input)  -  Number  of  geometries 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 


NAZMAX , NASMAX , NZSMAX , NMATL , NGMAX , MOLMAX 
(NAZMAX=30,  NASMAX=15,  NZSMAX=4;  NMATL=28) 
(NGMAX=15,  MOLMAX=26) 


INTRINSIC  and  EXTERNAL  Declarations: 


CHARACTER* 7 2 
REAL 

EXTERNAL 


lOERR 

FILTER 

FILTER, DEVCBD, lOERR 


Local  Variable  Declaration 


INTEGER  M,MM, IV, lOS, IGEOM, IG 

REAL  V , DV , FLTR , TAUT ( NAZMAX ) , S IGMET ( NAZMAX ) , 

TAUSCT (NAZMAX) , RADT (NAZMAX) , TAUB (NAZMAX) , 
SIGMEB (NAZMAX) , TAUSCB (NAZMAX) , RADB ( NAZMAX ) , 
DRADT (NAZMAX) , RADS LT (NAZMAX) , 

RADLNT( NAZMAX)  ,  DRADB  (NAZMAX)  , 

RDSLSB (NAZMAX) , RDSLST (NAZMAX) 


COMMON  Blocks: 


/DEVICE/ , /INTSTO/ , /MOLNMX/ 
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SUBROUTINE  ATMOUT 


Argument  Declarations; 


VI  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Initial  wavenumber  (cm  ) 

VF  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Final  wavenumber  (cm  ) 

IFLTR  -  INTEGER  Variable  (Input)  -  Index  for  filter  response 
IFLTR  =  0  implies  a  square  wave  response 
IFLTR  =  1  implies  a  user-defined  response 
TFLTR  -  CHARACTER* (* )  Variable  (Input)  -  Title  for  user-defined  filter 
ISMARY  -  INTEGER  Variable  (Input)  -  Summary  index 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NGMAX , NAZMAX , NASMAX , MLMAX , NZSMAX , MAXLAT , 
MAXLON, NVSMAX, ISMX, MOLMAX 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  NVSMAX=20) 

(MOLMAX=26,  ISMX=MOLMAX+8 ) 

(MAXLAT=3,  MAXL0N=1) 


INTRINSIC  and  EXTERNAL  Declarations: 


CHARACTER* 7 2 

INTRINSIC 

EXTERNAL 


lOERR 

ABS 

ATMINT , BCKINT , DEVCBD , GETHDR , ATMPRN , BCKPRN , 
ZROINT , lOERR 


Local  Variable  Declarations; 


INTEGER 

REAL 

LOGICAL 
CHARACTER* 40 
CHARACTER* 80 


IG, IZ , lOS , IVS , MLO , NVAR (NGMAX) 
BW,BWL, VIP, VFP,ZL (MLMAX) ,BWB,BWLB, 
LATST (MAXLAT) , LONST (MAXLON) 
FLBCKZ 

HEADNG, HEADER 
TITLE 


COMMON  Blocks : 


/BCKDAT/ , /CONSTN/ , /DEVICE/ , /HEADER/ 


► 


311 


SUBROUTINE  BCKINT 


Argument  Declarations: 

NV  -  INTEGER  Variable  (Input)  -  Number  of  spectral  records 

IFLTR  -  INTEGER  Variable  (Input)  -  Filter  index 

Refer  to  User  Reference  Manual  for  definition. 

VI  -  REAL  Variable  (Input)  -  Initial  wavenumber  (cm~^) 

VF  REAL  Variable  (Input)  -  Final  wavenumber  (cm”^) 

BW  -  REAL  Variable  (Output)  -  Effective  bandwidth  (cm"^) 

BWL  -  REAL  Variable  (Output)  -  Effective  bandwidth  (pm) 

NAZ  -  INTEGER  Vector  (Len  =  Unspecified)  (Input)  -  Number  of  azimuths 
NGEOM  -  INTEGER  Variable  (Input)  -  Number  of  geometries 

PARAMETER  Declarations: 

INTEGER  NAZMAX ,  MLMAX ,  MAXLAT ,  MAXLON ,  NGMAX ,  MOLMAX 

PARAMETER  (NAZMAX=30,  MLMAX=140,  MAXLAT=3 ,  MAXL0N=1) 

PARAMETER  ( NGMAX=  1 5  ,  MOLMAX= 2  6  ) 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  FILTER 

CHARACTER* 7 2  lOERR 

EXTERNAL  FILTER, DEVCBD, lOERR 

Local  Variable  Declarations: 

INTEGER  LB , MM , IV , lOS , IG , IGEOM 

REAL  DV,FLTR,V,SIGMEZ  (NAZMAX,  MLMAX)  , 

TAUSCZ (NAZMAX, MLMAX) , RDSCBZ (NAZMAX , MLMAX) , 

RADBZ  (NAZMAX,  MLMAX)  ,  DRADZ  (NAZMAX ,  MLMAX)  , 

RDSLBZ (NAZMAX, MLMAX) , RDLNBZ (NAZMAX , MLMAX) , 

TAUBZ ( NAZMAX , MLMAX ) 

COMMON  Blocks:  /BCKDAT/ , /DEVICE/ 
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SUBROUTINE  GETHDR 


Argument  Declarations : 

NFILE  -  INTEGER  Variable  (Input)  -  Device  number 
ITYPE  -  INTEGER  Variable  (Input)  -  Type  of  header 

ZBCK  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Altitude  grid  from  the 

background  header  (1cm) 

SWBCK  -  REAL  Array  (Dim  =  MLMAX  x  Unspecified)  (Output)  -  Switch  for 
availability  of  background  data 

TBCK  -  REAL  Array  (Dim  =  MLMAX  x  MAXLAT  x  Unspecified)  (Output)  - 
Background  altitude  air  temperatures  (K) 

NBCKZ  -  INTEGER  Variable  (Output)  -  Number  of  background  altitudes 
ZL  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Altitude  grid  (Icm) 

MLO  -  INTEGER  Variable  (Output)  -  Number  of  altitude  layers 

NVAR  -  INTEGER  Vector  (Len  =  NGMAX)  (Output)  -  Number  of  variables  in 

record  ,  i 

LATST  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Latitude  grid  (deg) 
LONST  -  REAL  Vector  (Len  =  Unspecified)  (Input)  -  Longitude  grid  (deg) 


PARAMETER  Declarations : 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NAZMAX , NASMAX , NGMAX , NZSMAX , MAXLAT , MAXLON , I SMX , 
NVSMAX , MLMAX , MOLMAX 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4 ) 
(MAXLAT=3,  MAXLON=l,  NVSMAX=20) 

(MOLMAX=26,  ISMX=M0LMAX+8) 

(MLMAX=140) 


INTRINSIC  and  EXTERNAL  Declarations: 


CHARACTER* 7 2  lOERR 

EXTERNAL  lOERR 


Local  Variable  Declarations: 


INTEGER  L , IZ , lOS , KK , LL , NHDR (2) , IGEOM 


COMMON  Blocks: 


/HEADER/ 


¥ 
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PROGRAM  MRFLTR 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


NGMAX ,  NAZMAX ,  NASMAX ,  MAXLAT ,  MAXLON ,  NVSMAX ,  MLMAX , 
NXMAX,  ISMX,NZSMAX,MOLMAX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MLMAX=140,  MOLMAX=26,  ISMX=MOLMAX+8 ) 

(MAXLAT=3,  MAXLON=l,  NVSMAX=20,  NXMAX=100) 


INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

INTRINSIC  MAX, MIN 

EXTERNAL  CNSTNT , ATMOUT , DEVCBD , INITL , RDFLTR , SUMFIL , 

GETHDR, SETFLG, CONFIG, PROMPT, DBINIT, lOERR 


Local  Variable  Declarations : 


INTEGER 

REAL 

CHARACTER* 2 4 
CHARACTER* 40 
CHARACTER*  80 


LENP  (NGMAX)  ,  ISMARY,  ISHINE  (NGMAX)  ,  NXTRA,  IFLTR, 
NVAR (NGMAX) , lOS , JFILE , ISLPOS , IVS , KFILE 
HXTRA(NXMAX) , VI (NVSMAX) ,VF (NVSMAX) , ZBCKZ (MLMAX) , 
LATST ( MAXLAT ) , LONST ( MAXLON ) 

TFLTR 

HEADNG, FILERT 
TITLE 


COMMON  Blocks: 


/BCKDAT/, /DEVICE/, /FLAGS/  , /HEADER/, /INITAL/ 


SUBROUTINE  AGUTOL 


Argument  Declarations: 

lAXS  -  INTEGER  Variable  (Input)  -  Number  of  the  axis 
lAXS  =  1  implies  the  left  axis 
lAXS  =  2  implies  the  right  axis 
lAXS  =  3  implies  the  bottom  axis 
lAXS  =  4  implies  the  top  axis 

FUNS  -  REAL  Variable  (Input)  -  Value  of  ' AXIS/ s /FUNCTION. ’ 

IDMA  “  INTEGER  Variable  (Input)  -  Direction  of  the  mapping 

VINP  -  REAL  Variable  (Input)  -  Value  in  one  coordinate  system 

VOTP  -  REAL  Variable  (Output)  -  Value  in  other  coordinate  system 
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CHARACTER* ( * )  FUNCTION  APPEND 

Argioment  Declarations; 

STRNGl  -  CHARACTER* {* )  Variable  -  Root  string 
STRNG2  -  CHARACTER* (* )  Variable  -  Additional  string 

INTRINSIC  and  EXTERNAL  Declarations: 

INTEGER  LENSTR 

INTRINSIC  LEN,MIN 

EXTERNAL  LENSTR 

Local  Variable  Declarations: 

INTEGER  IX , IXl , 1X2 

COMMON  Blocks:  None 

BLOCK  DATA  PLTBD 

PARAMETER  Declarations: 

INTEGER  NSMX,MLIDMX 

PTUIAMETER  (MLIDMX=45,  NSMX=MLIDMX+8 ) 

COMMON  Blocks:  /CHRPRM/ , /PLTPRM/ 
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SUBROUTINE  PLTDRV 


Argument  Declarations: 


IF  ATM 

IFTRN 

HEADNG 

TITLE 

NVG 

IGEOM 

ITYPE 


I SCALE 


RES 

RESWL 

IVS 


INTEGER  Variable  (Input)  -  Atmosphere  file  number 
INTEGER  Variable  (Input)  -  Transmittance  file  number 
CHARACTER* (*)  Variable  (Input)  -  MOSART  file  header 
CHARACTER* (* )  Variable  (Input)  -  MOSART  file  title 
INTEGER  Variable  (Input)  -  Number  of  spectral  points 
INTEGER  Variable  (Input)  -  Geometry  index  number 
INTEGER  Variable  (Input)  -  X-axis  index 
ITYPE  =  1  implies  wavelength 
ITYPE  =  2  implies  wavenumber 
INTEGER  Variable  (Input)  -  X-axis  scale  index 
ISCALE  =  1  implies  linear 
ISCALE  =  2  implies  logarithmic 
REAL  Variable  (Input)  -  Resolution  (cm"^) 

REAL  Variable  (Input)  -  Resolution  (pm) 

INTEGER  Variable  (Input)  -  Spectral  subset  index 


PARAMETER  Declarations : 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NUMPTS , NAZMAX , NASMAX , NGMAX , NZSMAX , MAXLAT , 

MAXLON,  ISMX,  NVSMAX,  NUMCRV,  MOLMAX ,  MLIDMX,  NSMX 
(NUMPTS=3000,  NUMCRV=5) 

{NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MAXLAT=3,  MAXL0N=1,  NVSMAX=20) 

(MOLMAX=2  6 ,  ISMX=M0LMAX+8 ) 

(MLIDMX=45,  NSMX=MLIDMX+8) 


INTRINSIC  and  EXTERNAL  Declarations: 


CHARACTER*! 
CHARACTER* 72 
CHARACTER*! 00 
INTRINSIC 
EXTERNAL 

EXTERNAL 


UPCASE 

lOERR 

APPEND 

MAX , MIN , INDEX , LEN 

lOERR , PROMPT , UPCASE , PLTBD , RDMSRT , APPEND , 
CHRCBD 

EZMXY , AGSETC , AGSETI , AGSETF , AGUTOL 


Local  Variables 


INTEGER 

REAL 

CHARACTER*! 
CHARACTER* !0 
CHARACTER* 4 6 
CHARACTER* 7 9 
CHARACTER*! 00 


K, L, lOS, IX, IBOT, ITOP,  ILAB(5)  ,NVGM,MDX 
ATMINP , RNGLOG 
DOLLAR, RES PON 
PTHTYP ( 6 ) 

CHARX 

GEOMNM 

TITLX , HEADNX , ATMNAM , BKGNAM , DUM 


COMMON  Blocks: 


/CHRCNM/ , /CHRPRM/ , /HEADER/ , /PLTPRM/ , /RMODAT/ 


PROGRAM  PLTGEN 


PARAMETER  Declarations: 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 


MLMAX ,  NVSMAX ,  MAXLAT ,  MAXLON ,  ISMX ,  NGMAX ,  NAZMAX , 
NASMAX, NZSMAX , MOLMAX 

(MLMAX=140,  NVSMAX=20,  MAXLAT=3 ,  MAXLON=l) 
(MOLMAX=26,  ISMX=MOLMAX+8 ) 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 


INTRINSIC  and  EXTERNAL  Declarations: 


CHARACTER* 2 
CHARACTER* 7 2 
INTRINSIC 
EXTERNAL 
EXTERNAL 


UPCASE 
lOERR 
INDEX , LEN 

PLTDRV,GETHDR, PROMPT, CONFIG, lOERR, UPCASE, LCTRIM 
OPNGKS , CLSGKS , AGUTOL 


Local  Variable  Declarations: 


INTEGER 

REAL 


LOGICAL 
CHARACTER* 2 
CHARACTER* 4 
CHARACTER* 40 
CHARACTER* 80 


K, lOS , IFATM, I VS , NBCKZ , MLO , NVAR (NGMAX) , IGEOM, 
IFTRN, I TYPE, I SC ALE 

ZBCKZ (MLMAX) , SWBCK (MLMAX, NGMAX) ,ZL (MLMAX) , 
TBCK ( MLMAX , MAXLAT , MAXLON ) , RES , RESWL , 

LATST (MAXLAT) , LONST (MAXLON) 

FLXST 

WLN 

SUFFIX, SUFFIT 
HEADNG, FILERT 
TITLE, FILENM 


COMMON  Blocks: 


/HEADER/ 


SUBROUTINE  RDMSRT 


Argiiment  Declarations: 

IFATM  -  INTEGER  Variable  (Input)  -  Atmosphere  file  unit  number 
IFTRN  -  INTEGER  Variable  (Input)  -  Transmittance  file  unit  number 

NVG  -  INTEGER  Variable  (Input)  -  Number  of  spectral  points 

ITYPE  -  INTEGER  Variable  (Input)  -  X-axis  index 

MGEOM  -  INTEGER  Variable  (Input)  -  Number  of  geometry 

RES  -  REAL  Variable  (Input)  -  Resolution  (cm"^) 

RESWL  -  REAL  Variable  (Input)  -  Resolution  (pm) 

IVS  -  INTEGER  Variable  (Input)  -  Spectral  subset  index 

PARAMETER  Declarations: 

INTEGER  NAZMAX , NASMAX , MLMAX , NUMPTS , NGMAX , NZSMAX , 

MAXLAT ,  MAXLON ,  I SMX ,  NVSMAX ,  NUMCRV ,  MOLMAX , 
MLIDMX , NSMX , NDV , NSLTD 

PARAMETER  (NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 

PARAMETER  (MLMAX=140,  MAXLAT=3 ,  MAXL0N=1) 

PARAMETER  (MOLMAX=26,  ISMX=M0LMAX+8 ) 

PARAMETER  (MLIDMX=45 ,  NSMX=MLIDMX+8 ) 

PARAMETER  (NUMPTS=3000 ,  NUMCRV=5,  NVSMAX=20) 

PARAMETER  (NDV=200,  NSLTD=3 *NAZMAX* ( 1+ISMX ) ) 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 7 2  lOERR 

INTRINSIC  MAX, MIN, MOD 

EXTERNAL  lOERR, PLTBD, SLITFN 

Local  Variable  Declarations: 

INTEGER  J,K,M,N,MM, lOS, IG, IGEOM , JP , J J , MJ , M JM , IS, JMOD, 

IV, JPM, ISP 

REAL  DVW,SIGMEB,RADT (NAZMAX) , DRADT, RADSLT, RESX, VO , 

RADB ( NAZMAX ) , DRADB , TAUSH , RADSH , RADSE , RADLNT , 
RADSS,RADSC,RDSLST (NAZMAX) , RDSLSB (NAZMAX) , 
RADBE (NAZMAX) , RADBR (NAZMAX) , RADSD , TAUSCB , 
DVWL , TAUT (NAZMAX) , TM ( 3 , NAZMAX, NSMX) , TAUTX, 
TAUB (NAZMAX) , T2 , T3 , XSLIT (NSLTD) ,V(NDV) , 

SLIT (NDV, NSLTD) ,DV(NDV) ,SUMSLT(NDV) 

COMMON  Blocks :  /HEADER/ , /PLTPRM/ , /RMODAT/ 
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SUBROUTINE  COLOR 


p 


Argument  Declarations : 


WL 

X 

Y 

Z 


-  REAL  Variable 

-  REAL  Variable 

-  REAL  Variable 

-  REAL  Variable 


(Input)  -  Wavelength  (pm) 

(Output)  -  First  CIE  response  curve 
(Output)  -  Second  CIE  response  curve 
(Output)  “  Third  CIE  response  curve 


PARAMETER  Declarations: 


INTEGER  MPTS 

PARAMETER  ( MPTS = 8  3 ) 


INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  INT , MAX , MIN , REAL 


Local  Variable  Declarations: 


INTEGER 

REAL 


M,MP 

XCIE(MPTS) , YCIE(MPTS) , ZCIE(MPTS) , FAC 


COMMON  Blocks :  None 


SUBROUTINE  HUMAN 


Argument  Declarations : 

V  -  REAL  Vector  (Len  =  *)  (Input)  -  Wavenumber  array  (cm'^) 

FILTER  -  REAL  Vector  (Len  =  *)  (Output)  -  Spectral  filter  (1/w) 

BCKGND  -  REAL  Vector  (Len  =  *)  (Input)  -  Spectral  background  (W/sr/cm’  ) 

NPTS  -  INTEGER  Variable  (Input)  -  Number  of  spectral  points 

WTLUMN  -  REAL  Variable  (Output)  -  Filter  normalization  (w/1) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  MAX, MIN, LOG 

REAL  XTERP 

EXTERNAL  XTERP 

Local  Variable  Declarations : 

INTEGER  I, IV, II, 12, IVM, IVP 

real  WL(45) ,RESP(45,9) ,BCKLVL{9) ,CLPW(9) , 

FI , F2 , FAC , DV, DUM, BCKINT ( 9 ) , WLO , CP , FLTLUX 

COMMON  Blocks :  None 


P 
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SUBROUTINE  NRMLZ 


Argument  Declarations: 

X  -  REAL  Variable  ( Input /Output )  -  First  CIE  response  curve 

Y  -  REAL  Variable  ( Input /Output )  -  Second  CIE  response  curve 

Z  ~  REAL  Variable  ( Input /Output )  -  Third  CIE  response  curve 

Local  Variable  Declarations: 

REAL  SUM 

COMMON  Blocks:  None 


SUBROUTINE  SUMIT 

Argument  Declarations: 

R 
RX 
RY 
RZ 
RV 

FILTER 
DV 
X 
Y 
Z 


-  REAL  Variable  ( Input /Output )  -  Summed  value  with  weight  FILTER  (xx) 

-  REAL  Variable  ( Input /Output )  -  Summed  value  with  weight  X  (xx) 

-  REAL  Variable  { Input /Output )  -  Summed  value  with  weight  Y  (xx) 

-  REAL  Variable  ( Input /Output )  -  Summed  value  with  weight  Z  (xx) 

-  REAL  Variable  (Input)  -  Spectral  function  (xx/cm“^) 

-  REAL  Variable  (Input)  -  Basic  filter  function 

-  REAL  Variable  (Input)  -  Spectral  increment  (cm"^) 

-  REAL  Variable  (Input)  -  First  CIE  response  curve 
“  REAL  Variable  (Input)  -  Second  CIE  response  curve 

-  REAL  Variable  (Input)  -  Third  CIE  response  curve 
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PROGRAM  VISUAL 


PARAMETER  Declarations: 

NGMAX ,  NAZMAX ,  NASMAX ,  NZ  SMAX ,  NVMAX ,  MLMAX , 

MAXLAT , MAXLON , ISMX , NVSMAX , MOLMAX , MLIDMX 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(NVMAX=3600,  MOIjMAX=26,  ISMX=M0LMAX+8  ) 
(MLMAX=140,  MAXLAT=3,  MAXL0N=1,  NVSMAX=20) 
{MLIDMX=45) 

INTRINSIC  and  EXTERNAL  Declarations: 

lOERR 

REAL , DELE , SQRT , COS , SIN 

CNSTNT , DEVCBD , HUMAN , COLOR , SUMF IL , GETHDR , 

NRMLZ, SUMIT, PROMPT , CONFIG , SETFLG, lOERR, FILRT 

Local  Variable  Declarations: 

INTEGER  I , K, M, lOS , IG, IV, MM, IVS , NBCKZ , MLO , NVAR (NGMAX) , 

IGP, IGEOM, IDUM 

real  V (NVMAX) ,DV (NVMAX) , FILTER (NVMAX) , SGMEBT , RADBZ , 

ZBCK (MLMAX) , SWBCK (MLMAX, NGMAX) , WL , RADBT , WLl , 
TAUT (NVMAX, NAZMAX) , DRADT (NVMAX, NAZMAX) , TAUl , 
RADSLT (NVMAX, NAZMAX) , TAUSCT (NVMAX, NAZMAX) , 
RADLNT (NVMAX, NAZMAX) , TAUB (NVMAX, NAZMAX) , TAU2 , 
SIGMET ( NVMAX , NAZMAX ) , RADBCK ( NVMAX , NAZMAX ) , 
RADSH (NASMAX) , SIGMEB (NVMAX, NAZMAX) , RADBY , WL2 , 
TAUSCB( NVMAX, NAZMAX) ,TAUSH,X,Y, Z , WTLUMN , RADI , 
RADSS (NASMAX, NZSMAX) , DRADTT , DRADBT , SGMETT , 
RADSC (NASMAX, NZ SMAX) , DRADB ( NVMAX , NAZMAX ) , 
RADSE (NASMAX, NZSMAX) , RADSD ( NVMAX , NAZMAX ) , 
RDSLST( NVMAX, NAZMAX) , RDSLSB (NVMAX, NAZMAX) , 
RADB (NVMAX , NAZMAX ) , RADBX , RDLNT , RSLSTT , RADBET , 
RADBE (NVMAX, NAZMAX) , RADBR (NVMAX, NAZMAX) ,DUM, 
RADT (NVMAX, NAZMAX) , RAD2 , TASCTT , TASCBT , RDSLT , 
RADBRT,RSLSBT,RADSDT,BW,BWL,XP(11) ,YP(11) , 

ZP ( 11 ) , TBCK (MLMAX, MAXLAT , MAXLON) , ZL (MLMAX) , 
LATST (MAXLAT) , LONST (MAXLON) 

DOUBLE  PRECISION  RE , REPOL , REEQU 
CHARACTER  *  2  4  TFLTR 

CHARACTER*40  HEADNG, FILERT 

CHARACTER* 4 5  TLBL(18) 

CHARACTER* 80  TITLE, FILENM ( 14) 

COMMON  Bloclcs:  /CONSTN/ , /DEVICE/ , /FLAGS/  , /HEADER/ , /MOLECP/ , 

/USERNM/ 


CHARACTER* 7 2 

INTRINSIC 

EXTERNAL 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 
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PROGRAM  FACET 


PARAMETER  Declarations: 


INTEGER 


PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NNMAX , NRMAX , NAZMAX , NASMAX , NGMAX , NZSMAX , MAXLAT , 
MAXLON , I SMX , NVSMAX , MLMAX , MOLMAX , NRFMAX , 
NSPCT , NZSH , MLIDMX 
(NNMAX=3,  NRMAX=4,  MLMAX=140) 

(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
(MAXLAT=3,  MAXLON=l,  NVSMAX=20) 

(MOLMAX=26,  ISMX=MOLMAX+8 ,  MLIDMX=45) 
{NRFMAX=80,  NSPCT=181,  NZSH=361) 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

CHARACTER*! 
CHARACTER* 4 
CHARACTER* 7 2 
INTRINSIC 

EXTERNAL 


GETVAR, SHADOW, FILTER, XTERP , SURFAC 

UPCASE 

LWCASE 

lOERR 

CMPLX , SQRT , COS , SIN , ACOS , ATAN2 , REAL , INT , MAX , MIN , 
ABS 

GETVAR, RDLINE , PARSE , UPCASE , SURFAC , CONFIG , 
CNSTNT, SHADOW, FILTER, RDFLTR, DEVCBD, INFLBD, 
LWCASE , XTERP , SETFLG , SUMFIL , GETHDR 


Local  Variable  Declarations: 


INTEGER 


REAL 


LOGICAL 
CHARACTER* 1 
CHARACTER* 2 4 
CHARACTER* 2 5 
CHARACTER* 40 
CHARACTER* 80 
CHARACTER*255 


I,K,M,N,NBCKZ,MLO,NVAR(NGMAX) , lOS , 

NN , IGEOM , MM , IV , I VS , IG , NPHI , NTHETA , I P , IT , 
IFLTR , MINV , NSPCTP , NZSHP , IGRID 
XNORM (NNMAX) , RINDEX, I INDEX, ZBCK (MLMAX) ,V,DV, 
SWBCK (MLMAX, NGM7DC) , S IGNAT (NAZMAX) , 

TBCK (MLMAX, MAXLAT, MAXLON) ,ZL(MLMAX) ,A,B, 

TAUT (NAZMAX) , SIGMET (NAZMAX) , TAUSCT (NAZMAX) , 
RADT (NAZMAX) , RADSLT (NAZMAX) , RADLNT ( NAZMAX ) , 
TAUB (NAZMAX) , SIGMEB (NAZMAX) , TAUSCB (NAZMAX) , 
RADB( NAZMAX) , DRADT ( NAZMAX ) , DRADB (NAZMAX) , 
RDSLST (NAZMAX) , RDSLSB (NAZMAX) , RADBE (NAZMAX) , 
RADBR ( NAZMAX ) , RADSD ( NAZMAX ) , FLTR , VPM , VPP , 
TAREA ( NGMAX , NAZMAX ) , BKGD ( NGMAX , NAZMAX ) , UP , VP , 
TAUSH (NASMAX, NZSMAX) , CNTRST , DUMAZ (NZSMAX) , 
RADSH ( NASMAX , NZ  SMAX )  , SNORM ( 3 )  , PRO JA , TNORM , 
RADSE (NASMAX, NZSMAX) , APPS (NGMAX , NAZMAX) , 

PATH (NGMAX, NAZMAX) , DPHI , DTHETA, ASH (NZSH) , 
RADSS (NASMAX, NZSMAX) , DAREA, DUM, OBS ( 3 ) ,WL2, 
RADSC (NASMAX, NZSMAX) , RCNTR, PSH (NSPCT) ,WL1, 
RADSHN (NSPCT, NZSH) , ECCEN, LATST (MAXLAT) , 
RSH(NZSH) , PSHI (NASMAX) ,BW (NGMAX) , 

BWL(NGMAX) , RSHM (NASMAX , NZSH) , LONST (MAXLON) 
FLTMP 
DOT , DUMMY 

TFLTR , TFLTRO , TFLTRX , GRID ( 3 ) , REFT ( 3 ) , RGH ( 2 ) 

SHAPE ( 4 ) 

VRDATA ( NRMAX ) , HEADNG , NFFCT 
TITLE 

VARIAB , FILENM , FILNAM 


COMMON  Bloclcs; 


/CONSTN/ , /DEVICE/ , /HEADER/ , /MATRLD/ , /MOLECP/ , 
/USERNM/ 


'k 
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REAL  FUNCTION  ROUGH 


Argument  Declarations: 

HSIGMA  -  REAL  Variable  -  Standard  deviation  of  the  heights  on  the 
reflective  surface 

WL  -  REAL  Variable  -  Wavelength  (same  units  as  HSIGMA) 

PSI  -  REAL  Variable  ~  Elevation  angle  at  the  surface  (deg) 

ITYPE  -  INTEGER  Variable  -  Type  of  surface  _  ... 

ITYPE  =  0  implies  a  plane  wave  on  a  Gaussian  distribution 
of  stepped  surfaces 

Otherwise,  it  implies  a  spherical  wave  on  a  Gaussian 
distribution  of  sinusoidal  surfaces 

INTRINSIC  and  EXTERNAL  Declarations: 

real  EHBSLO 

INTRINSIC  SIN, EXP 

EXTERNAL  EHBSLO 

Local  Variable  Declarations: 

real  DUM 


COMMON  Blocks: 


/CONSTN/ 


REAL  FUNCTION  SURFAC 


Argument  Declarations: 

V  -  REAL  Variable  (Input)  -  Wavenumber  (cm‘^) 

DV  -  REAL  Variable  (Input)  -  Wavenumber  increment  (cm'^) 

XNORM  -  REAL  Vector  (Len  =  Unspecified)  -  Surface  normal  vector 
vector 

HSOLAR  -  REAL  Variable  -  Spectral  solar  irradiance  (W/cm^/cm"^) 

SOLAZ  -  REAL  Variable  -  Azimuth  angle  of  incident  solar  radiation  (deg) 

SOLEV  “  REAL  Variable  -  Elevation  angle  of  incident  solar  radiation  (deg) 
radiation  (deg) 

HLUNAR  -  REAL  Variable  -  Spectral  lunar  irradiance  (W/cm^/cm“^) 

XLUNAZ  -  REAL  Variable  -  Azimuth  angle  of  incident  lunar  radiation  (deg) 

XLUNEV  -  REAL  Variable  -  Elevation  angle  of  incident  lunar  radiation  (deg) 
HSHINE  -  REAL  Array  (Dim  =  NASMAX  x  Unspecified)  -  Skyshine  radiance 
(W/cm^/sr/cm”^) 

PHISH  -  REAL  Vector  (Len  =  Unspecified)  -  Skyshine  elevation  angles  (deg) 

NASPCT  -  INTEGER  Variable  -  Number  of  skyshine  elevation  angles 

NASMAX  -  INTEGER  Variable  -  Maximum  number  of  skyshine  elevation  angles 

AZSH  -  REAL  Vector  (Len  =  Unspecified)  ~  Skyshine  azimuth  angles  (deg) 

NAZSH  -  INTEGER  Variable  -  Number  of  skyshine  azimuths 

TAU  -  REAL  Variable  -  Transmittance  observer- facet 

TAIR  -  REAL  Variable  -  Air  temperature  (K) 

PHIRF  -  REAL  Variable  -  Elevation  angle  of  reflected  line  of  sight  at  the 

facet  (deg) 

AZIM  -  REAL  Variable  -  Observer  azimuthal  angle  (deg) 

PARAMETER  Declarations: 


INTEGER  NRFMAX 

PARAMETER  ( NRFMAX=  8  0 ) 

INTRINSIC  and  EXTERNAL  Declarations: 


REAL 

COMPLEX 

INTRINSIC 

EXTERNAL 


XTERP , PLANCK , BDRF , SHADOW , ROUGH 
REFEST 

SQRT , REAL , DELE , DPROD , ABS , SIN , COS , MAX , MIN , CMPLX , 
ATAN2, ACOS,ASIN 

XTERP , PLANCK , FRESNL , BDRF , REFEST , DIREMS , PROFAC , 
ROUGH 


Local  Variable  Declarations: 

INTEGER  I , K , ITRPO , KEY , KEYP , M , MM, MP , MMM, MMP , NLAYER 

REAL  WL , REFLS , REFLL , RFN , EMI S , PLK , FAC , AZLUN , 

REFLX,EMV,EMH,TMPLYR(0:3) , UOBS ( 3 ) ,US0L(3) , 
ULUN ( 3 )  , POBS , PSOL , PLUN , XOBS , XSOL , XLUN , AZ  SOL , 
SLOPE , SHDWS , SHDWL , XOS , XOL , USHN ( 3 ) , XSHN , 

YNORMO ,  YNORMS  ,  YNORML ,  FRACSP ,  DEP  (0:3),  ZNORM  (  3  ) 
DOUBLE  PRECISION  EM, RF, RTERS , RTERL, RTERSH, DSNP, DAZSH 
COMPLEX 


COMMON  Blocks: 


DIELEC , XMUC , INAIR ( 2 ) , INMAT (0:2), REFR , EPSX , RH , 
RV,TV,TH,EPSA 

/CONSTN/ , /MATRLD/ 
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SUBROUTINE  COEFF 


Argument  Declarations : 


BUF 

NX 

NY 

DX 

DY 

KOX 

KOY 

ALPHA 

VAR 


REAL  Array  (Dim  =  NX  x  Unspecified)  (Output)  - 
packed  scene  Fourier  coefficients 
INTEGER  Variable  (Input)  -  Number  of  pixels 
INTEGER  Variable  (Input)  -  Number  of  pixels 


REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 
REAL  Variable 


in 

in 


(Input)  -  Resolution  in  x 

(Input)  -  Resolution  in  y 

(Input)  -  PSD  frequency  scale  in 

(Input)  -  PSD  frequency  scale  in 

(Input)  -  PSD  power  law  index 

(Input)  -  Desired  scene  variance 


Array  containing 

X  direction 
y  direction 


X  direction 
y  direction 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL  GAUS 

INTRINSIC  SQRT , REAL 

EXTERNAL  GAUS 

Local  Variable  Declarations: 

INTEGER  I , J, NX2 , NY2 , NXl , NYl , II , J1 , IP 

real  KX  ,  KY  ,  SQT2  ,  RMAXX ,  RMAXY ,  RMAX2  ,  DKAPX ,  DKAPY , 

PSD2D,  STDV,  A,B 


COMMON  Blocks:  /CONSTN/ 


REAL  FUNCTION  CORF 


Argument  Declarations: 

CORL  -  REAL  Variable  -  Correlation  length 

KO  -  REAL  Variable  -  PSD  frequency  scale 

ALPHA  -  REAL  Variable  -  PSD  power  law  index 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  KNU,  GAMMA 

EXTERNAL  KNU , GAMMA 

Local  Variable  Declarations: 

REAL  NU,X 

COMMON  Blocks:  None 
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SUBROUTINE  FM2D 


Argument  Declarations: 


X 

N 

NMAX 

SIGMA 

H 

FLADD 


REAL  Array  {Dim  =  NMAX  x  Unspecified)  (Input /Output )  -  Scene 
matrix.  It  assumed  that  the  y-dimension  is  at  least  as 
large  as  the  x-dimension 

INTEGER  Variable  (Input)  -  Niimber  of  pixels  in  x  direction. 

The  scene  is  assiimed  to  be  square 
INTEGER  Variable  (Input)  -  Maximum  x-dimension  of  X 
REAL  Variable  (Input)  -  Standard  deviation  of  scene 
REAL  Variable  (Input)  -  Seeling  parameter  defined  by  H=3-D, 
where  D  is  the  fractal  dimension 
LOGICAL  Variable  (Input)  -  Switch  for  determining  if  random 
additions  are  to  be  included 


INTRINSIC  and  EXTERNAL  Declarations: 


REAL  GAUS 

EXTERNAL  GAUS 


Local  Variable  Declarations: 

INTEGER  IX , I Y , ND , ND2 , MAXLVL , I STAGE , NM 

REAL  DELTA 

Statement  Function  Declarations: 

REAL  F3 , F4 , XO , XI , X2 , X3 

COMMON  Blocks :  None 


SUBROUTINE  FOURl 


Arg-ument  Declarations: 


PDATA  -  REAL  Vector  (Len  =  Unspecified)  ( Input /Ouput )  -  One-dimensional 

complex  (i.e.,  the  real  and  imaginary  parts  adjacent  in 
storage)  whose  length  NN=2**K,  K.GE.O  (if  necessary  append 
zeroes  to  the  data) .  Transform  values  are  returned  in  array 
PDATA,  replacing  the  input. 

NN  -  INTEGER  Variable  (Input)  -  Length  of  PDATA 

ISIGN  -  INTEGER  Variable  (Input)  -  +1  or  -1  for  finite  FFT  or  its 
inverse.  One  of  these  followed  by  the  other  results  in 
the  original  data  multiplied  by  NN. 


Local  Variable  Declarations: 


INTEGER  I, J,M,N,MMAX, ISTEP 

real  TEMPR , TEMPI , THETA , SINTH , WSTPR , WSTPI , WR , WI 


COMMON  Blocks: 


/CONSTN/ 
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REAL  FUNCTION  GAMMA 

Argument  Declarations: 

X  -  REAL  Variable  -  Argiiment 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL 

Local  Variable  Declarations: 

INTEGER  I , N 

REAL  A(5),y,yi 

COMMON  Blocks :  None 


REAL  FUNCTION  GAUS 

Argument  Declarations : 

STD  -  REAL  Variable  -  Standard  deviation 

INTRINSIC  and  EXTERNAL  Declarations: 

EXTERNAL  RUNIF 

Local  Variable  Declarations: 

INTEGER  I , N 

REAL  T (33 ) , DUM, RAND 

COMMON  Blocks :  None 


REAL  FUNCTION  KNU 


Argument  Declarations: 

NU  -  REAL  Variable  -  Index 

X  -  REAL  Variable  -  Argiment 

INTRINSIC  and  EXTERNAL  Declarations: 

real  gamma 

INTRINSIC  MAX , REAL , LOG , EXP 

EXTERNAL  GAMMA 

Local  Variable  Declarations: 

INTEGER  I,N 

REAL  T,TO,DT,SUM,C 


COMMON  Block  Declarations:  /CONSTN/ 


SUBROUTINE  RUNIF 


Argument  Declarations: 

T  “  REAL  Vector  (Len  =  Unspecified)  ( Input /Output )  -  Array  of 

ABS{N)+1  random  numbers  from  a  previous  invocation  of 
RUNIF.  Whenever  N  is  positive  and  differs  from  the  old 
N,  the  table  is  initialized.  The  first  ABS{N)  numbers 
are  the  table  discussed  in  the  reference,  and  the 
(N+l)-st  value  is  Y.  This  array  may  be  saved  in  order 
to  restart  a  sequence. 

N  -  INTEGER  Variable  (Input)  -  ABS(N)  is  the  number  of  random 

numbers  in  an  auxiliary  table.  Although  ABS(N)+1  is  the 
number  of  items  in  array  T.  If  N  is  positive  and  differs 
from  its  value  in  the  previous  invocation,  then  the  table 
is  initialized  for  the  new  value  of  N.  If  N  is  negative, 
ABS(N)  is  the  number  of  items  in  an  auxiliary  table, 
but  the  tables  are  now  assumed  already  to  be  initialized. 
This  option  enables  the  user  to  save  the  table  T  at  the 
end  of  a  long  computer  run  and  to  restart  with  the  same 
sequence.  Normally,  RUNIF  would  be  called  at  most 
once  with  negative  N.  Subsequent  invocations  would  have 
N  positive  and  of  the  correct  magnitude. 

X  -  REAL  Variable  (Output)  -  Random  number  between  0.0  and  1.0, 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  UNI 

INTRINSIC  ABS , INT 

EXTERNAL  UNI 

Local  Variable  Declarations: 

INTEGER  I,J,NOLD 

REAL  DUMMY 

COMMON  Blocks :  None 


REAL  FUNCTION  SCALE 


Argument  Declarations: 

CORL  -  REAL  Variable  ~  Correlation  length 

ALPHA  -  REAL  Variable  -  PSD  slope 

INTRINSIC  and  EXTERNAL  Declarations: 

REAL  CORF 

INTRINSIC  EXP 

EXTERNAL  CORF 

Local  Variable  Declarations: 


INTEGER 

REAL 

COMMON  Blocks: 


N 

C , CON , SCMIN , SCMAX , SCL 
None 
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PROGRAM  SCNGEN 


» 


* 


PARAMETER  Declarations : 


INTEGER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NX , NY , NZ , NXP , NYP , NPTS , NXT2 , NMATL , NXTILE , NYTILE , 
NOVRX,NOVRY 

(NX=1024,  NY=NX,  NXP=NX+1,  NYP=NY+1) 
(NPTS=NX*NY) 

(NXTILE=128,  NYTILE=NXTILE) 

(NOVRX=20,  NOVRY=NOVRX) 

(NXT2=2*NX,  NZ=1) 

(NMATL=100) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

CHARACTER*! 
CHARACTER* 3 
CHARACTER* 7 2 
INTRINSIC 
EXTERNAL 


IGTINT 

UNI , SCALE , GETVAR , XTERP 

UPCASE 

LWCASE 

lOERR 

MAX, MIN, REAL, INT, ABS , SIN, LEN 

UNI , SCALE , COEFF , TDFFT , GETVAR , RDLINE , PARSE , FM2D , 
IGTINT , PROMPT , CONFIG , UPCASE , LWCASE , CNSTNT , 
lOERR, TILEIT, XTERP 


Local  Variable  Declarations : 


INTEGER 


REAL 


LOGICAL 
CHARACTER*! 
CHARACTER* 20 
CHARACTER* 40 
CHARACTER* 80 
CHARACTER* 2 55 
CHARACTER* 1024 


I , IX, lY, lOS, IFSCN, IFINP, IFMSK, NDUM, NCOLM, NROWM, 
INDX (NMATL) , IM, NMAT, IXM, lYM, IFCLD, IXC, lYC, 

NCP , NROWC , NCOLC , NO , LVAR , NXUSER , NYUSER, NRECL , 
IROW,NGRID 

KOX , KO Y , DUM , DX , DY , SEED , SIG , SIGMA , RESMKY , RY , 
ALPHA(0 : NMATL) , RESMKX, CMIN, VAR ( 0 iNMATL) , SCN, 
SCNMN(0:NMATL,2) , FRACT ( NMATL ) , CMAX, H, PSDPWR, 
XMIN , XMAX , CUMFRC , DPTS , WTMSK { 0 : NMATL ) , CLDCVR , 
RESCLD , ELEV , CORLEN ( 0 : NMATL ) , ROW { NX ) , TRN , 
RTRAN (NX) , RPATH (NX) , RSTDV (NX) , REFTRN 
FLADD , MSKADD , CLDADD , FLGRD 
DOT 

VRDATA ( 8 ) 

FILENM 

DUMMY 

VARIAB , NFSCN , NFMSK , NFCLD 
BUFF 


COMMON  Blocks: 


/CONSTN/, /PIXEL/ 


* 
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SUBROUTINE  TDFFT 

Argioment  Declarations: 

BUF  -  REAL  Array  (Dim  =  NX  x  Unspecified)  ( Input /Output )  -  Upon  input, 

BUF  is  the  packed  array  of  scene  Fourier  coefficients.  Upon 
output,  BUF  is  the  random,  correlated  background  fluctuations. 
NX  -  INTEGER  Variable  (Input)  -  Number  of  pixels  in  x  direction 

NY  -  INTEGER  Variable  (Input)  -  Number  of  pixels  in  y  direction 

ARR  -  REAL  Vector  (Len  =  Unspecified)  -  Work  space 

UNPCK  -  REAL  Vector  (Len  =  Unspecified)  -  Work  space 

INTRINSIC  and  EXTERNAL  Declarations: 

EXTERNAL  FOURl 

Local  Variable  Declarations: 

INTEGER  I , J , ISGN , NX2 , Ny2 , NSORT , IP , JP , I J 

REAL  SAVE 

COMMON  Blocks :  None 


SUBROUTINE  TILEIT 

Argument  Declarations: 

X  -  REAL  Array  (Dim  =  NXMAX  x  Unspecified)  (Output)  -  Large  array 

NX  -  INTEGER  Variable  (Input)  -  Number  of  x-elements  for  X 

NXMAX  -  INTEGER  Variable  (Input)  -  Maximum  number  of  x-elements  for  X 
NY  -  INTEGER  Variable  (Input)  -  Number  of  y-elements  for  X 

TILE  -  REAL  Array  (Dim  =  NTXMAX  x  Unspecified)  (Input)  -  Small  array 

NTX  -  INTEGER  Variable  (Input)  -  Number  of  x-elements  for  TILE 

NTXMAX  -  INTEGER  Variable  (Input)  -  Maximum  number  of  x-elements  for  TILE 
NTY  -  INTEGER  Variable  (Input)  -  Number  of  y-elements  for  TILE 

NOVRX  -  INTEGER  Variable  (Input)  -  Number  of  overlappine  elements  at  the 

edge  in  the  x-direction 

NOVRY  -  INTEGER  Variable  (Input)  -  Number  of  overlappine  elements  at  the 
edge  in  the  y-direction 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  REAL , MOD 

Local  Variable  Declarations: 

INTEGER  IX , I Y , ITXl , ITX2 , ITYl , ITY2 

REAL  FACX,FACY 

COMMON  Blocks :  None 
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REAL  FUNCTION  UNI 


)• 


Argument  Declarations: 

R  -  REAL  Variable  -  Argument 

If  R=0.,  the  next  random  number  of  the  sequence  is  generated. 
If  R<0.,  the  last  generated  number  will  be  returned  for 
possible  use  in  a  restart  procedure. 

If  R>0 . ,  the  sequence  of  random  numbers  will  start  witn 
the  seed  R  mod  1.  This  seed  is  also  returned  as  the 
value  of  UNI  provided  the  arithmetic  is  done  exactly. 

INTRINSIC  and  EXTERNAL  Declarations: 

INTRINSIC  MOD,INT 

Local  Variable  Declarations: 

INTEGER  lAl , lAO , lAlMAO , IC ,  IXl ,  IXO  ,  lYl ,  lYO 

COMMON  Blocks :  None 


INTEGER  FUNCTION  NCHTER 


Argument  Declarations : 

CHVAR  -  CHARACTER* {* )  Variable  -  Model  atmosphere  identifier 

PARAMETER  Declarations: 

INTEGER  NMATL 

PARAMETER  ( NMATL= 7  6 ) 

INTRINSIC  and  EXTERNAL  Declarations: 

CHARACTER* 10  UPCASE 

INTRINSIC  LEN , MIN 

EXTERNAL  LCTRIM, UPCASE 


Local  Variable  Declarations: 


INTEGER 
CHARACTER* 10 

COMMON  Blocks: 


I, J,LMAX 

CHTER ( 0 : NMATL , 2 ) , CHVARP 
None 


331 


SUBROUTINE  RDUSRM 

Argument  Declarations: 

IMATL  -  INTEGER  Variable  (Input)  -  Material  index 
IFILE  -  INTEGER  Variable  (Input)  -  File  unit  number 
lEND  -  INTEGER  Variable  (Output)  -  End  of  file  switch 

LABEL  CHARACTER*  {*)  Variable  (Output)  -  Material  label 
HTALF  -  REAL  Variable  (Output)  -  Solar  absorptivity 

HTEP  -  REAL  Variable  (Output)  -  Thermal  emissivity 

CHRLN  -  REAL  Variable  (Output)  -  Characteristic  length  (m) 

IHTFL  -  INTEGER  Variable  (Output)  -  Heat  calculation  flag 
SPHT  -  REAL  Variable  (Output)  ~  Specific  heat  (W-sec/gm/K) 

HCND  -  REAL  Variable  (Output)  -  Thermal  conductivity  (W/m/K) 

DNSTY  ~  REAL  Variable  (Output)  -  Density  (gm/m^) 

ZLYRR  -  REAL  Vector  (Len  =  Unspecified)  (Output)  -  Layer  thickness  (m) 
INLYR  -  INTEGER  Vector  (Len  =  Unspecified)  (Output)  -  Layer  index 

PARAMETER  Declarations: 

INTEGER  NMATL , MAXLAT , MAXLON 

PARAMETER  (NMATL=76,  MAXLAT=3 ,  MAXL0N=1) 

INTRINSIC  and  EXTERNAL  Declarations: 

INTEGER  NCHTER 

REAL  GETVAR 

CHARACTER* 3  UPCASE 

EXTERNAL  GETVAR, RDLINE, UPCASE , BKGDBD , NCHTER 

Local  Variable  Declarations: 

INTEGER  MTLDEF 

CHARACTER*255  VARIAB 

COMMON  Blocks:  /BACKGD/ 
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PROGRAM  TERTEM 


(• 


PARAMETER  Declarations: 


INTEGER 


PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


NMATL , NTIME , NLAYER , MAXLAT , MAXLON , MOLMAX , NALTMX , 
MSURF ,  NGMAX ,  MLMAX ,  NS  LPMX ,  NAZMAX ,  NASMAX ,  I SMX , 
NZSMAX , NVSMAX , MLIDMX , NL 
(NGMAX=15,  NAZMAX=30,  NASMAX=15,  NZSMAX=4) 
{M0LMAX=26,  ISMX=M0LMAX+8) 

(NVSMAX=20,  NMATL=76,  NTIME=500,  MLMAX=140) 
{NLAYER=20,  NALTMX=11,  MSURF=14,  NSLPMX=3 ) 
{MAXLAT=3,  MAXLON=l,  MLIDMX=45) 

{NL=50) 


INTRINSIC  and  EXTERNAL  Declarations: 


INTEGER 

REAL 

CHARACTER* 3 
CHARACTER* 4 
CHARACTER* 7 2 
INTRINSIC 
EXTERNAL 


IGTINT 

SEATMP , XTERP , GETVAR , S ATUR 

UPCASE 

LWCASE 

lOERR 

S  IN ,  MAX ,  MIN ,  REAL ,  ABS ,  COS ,  SQRT ,  MOD 
CNSTNT , CONFIG , FILRT , GETHDR , GETVAR , GETVEC , HTBLNC , 
IGTINT , INTR2D , lOERR , PARSE , EXMLBD , PROFAC , PROMPT , 
RDLINE , SEATMP , SPCLYR , UPCASE , XTERP , DEVCBD , BKGDBD , 
CHRCBD , SATUR , ATMSBD , LWCASE , RDUSRM , AECALC 


Local  Variable  Declarations: 


INTEGER 


REAL 


REAL 


LOGICAL 
CHARACTER*! 
CHARACTER* 40 
CHARACTER* 80 
CHARACTER*255 


I, J,K,L,M,MTL, ITM,NSTAB, IOS,KK,LL, IDUM,LY, 

NBCKZ , MLO , NVAR ( NGMAX ) , NALT , NSLP , NSURF , NTMP , 
KEYT , KEYTP , NVARMX , NVARX , SCNDX ( 2  2 ) , J J , MTLX , 

KS , NMTLT , NMTLO , MTIME 

DECTIM (NTIME ) , DELTIM , RFDS { NALTMX , NTIME , MSURF ) , 
SOLAZT (NTIME) , SOLEVT (NTIME) , ALT (NALTMX) , 

LTEMP (NTIME) , TSRF (NALTMX, NTIME, NMATL, MSURF) , 
TAIRLC (NALTMX, NTIME) , STABRS , TSSL (NALTMX) , 

TLYR (10, NTIME ) , FACTOR ( MAXLAT , MAXLON ) , BSWI , 
WINDLC (NALTMX, NTIME) , PAIRLC (NALTMX, NTIME) , 
TLAYER ( 0 : NLAYER+1 ) , BSWl , BSW2 , DTMAX, 

S  PHLYR ( 0 : NLAYER+ 1 ) , DENLYR ( 0 : NLAYER+ 1 )  , 

HTCLYR ( 0 : NLAYER+1 ) , ZLAYER ( 0 : NLAYER+ 1 ) , BSWF , 
DUMLYR ( 2 , NLAYER+1 ) , YNORM ( 3 ) , 

XNORM(3,MSURF) , PLYR ( 1 0 , NTIME ) , AZM(4) ,DSWI, 
BSWZL( 10, NTIME) , DSWZL ( 10 , NTIME) ,DSW1,DSW2, 
DLWZL (10, NTIME ) , BSW , DSW { NALTMX , NTIME ) , DLWI , 
DLW ( NALTMX , NTIME ) , WNDLYR (10, NTIME ) , DLWF , DSWF , 
ZLYR(IO) ,ULWZ(10) ,DLWZ(10) , DLWI , DLW2 , SOLAZI , 
USWZ ( 10 ) , DSWZ ( 10 ) , BSWZ ( 10 ) , FRTEMP (NALTMX) , 
ZBCK(l) , SWBCK( MLMAX, 1) , TBCK (MLMAX, MAXLAT, 1 ) , 
ZL (1) , SLOPE (NSLPMX) , SOLEVI , SOLAZF , SOLEVF , 
RFDSI , RFDSF , TAIRl , TAIR2 , TAIRI , TAIRF , FACTIM, 
PAIRl , PAIR2 , PAIRI , PAIRF , WINDl , WIND2 , WINDI 
WINDF , ALTX , SLEV , SLAZ , TIMELP , TFINAL , TINIT , 

TIMEL , SCNCMP ( 4 , NMATL) , RHLYR ( 10 , NTIME) , 

TMPCMP ( NALTMX , NTIME , MSURF , 4 ) , CMOL ( MLIDMX ) , 
SUMC , RHX ,CH2O(10, NTIME) 

FLSUN, FLINI , FLUSR 
DOT 

HEADNG , FILERT , VRSUB ( 8 ) 

TITLE, FILENM{ 19) ,FILNM, DUMMY 
VARIAB 


COMMON  Blocks :  /ATMDAT/ , /BACKGD/ , /CHRCNM/ , /CONSTN/ , /DEVICE/ , 

/EXTMOL/ , /HEADER/ 
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4.2  Static  Variables 

All  local  variables,  with  the  exceptions  noted  below,  are  dynamic  (except  for 
variables  initialized  by  a  DATA  statement).  All  COMMON  blocks  are  SAVEd  in  each 
routine  in  which  the  COMMON  block  appears;  hence,  all  variables  in  COMMON 
blocks  are  static. 

As  stated  above,  a  few  local  variables  are  static  (via  a  SAVE  statement).  These 
variables  and  their  routines  are: 

SUBROUTINE  ABSMOL:  VDUM,  IBIN,  IMOL,  SDZ,  lALF,  ODZ,  NRECU 

SUBROUTINE  BMOD:  ISWX,  KEYWL,  KEYMLP,  FAC,  TS,  TSS,  ADO, 

MLOLD,  PRTNO 

SUBROUTINE  CKSTAT:  ICOUNT 

SUBROUTINE  CXDTA:  IND 

REAL  FUNCTION  GAUS:  T 

SUBROUTINE  MIEPHS:  ISWTCH,  PCTP 

SUBROUTINE  MLSCAT:  TAPU,  SCTI,  SCT3 

SUBROUTINE  PHFUNC:  WLY,  JWL,  JWLP,  FACWL 

SUBROUTINE  PHYDRO:  WLY,  KWL,  KWLP,  FACTP 

SUBROUTINE  PHTOSB:  PLK1,  DPLK1 

SUBROUTINE  RAINSP:  KEYWL 

SUBROUTINE  RDGBL:  IPRINT 

SUBROUTINE  RDSCN:  IPRINT 

SUBROUTINE  RUNIF:  NOLD 

SUBROUTINE  SETBCK:  ISTORE 

SUBROUTINE  SNOWSP:  KEYWL 

SUBROUTINE  STRCNZ:  CN2BCK,  WO 
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REAL  FUNCTION  UNI: 


1X1,  1X0 


REAL  FUNCTION  XTERP:  KEY 

REAL  FUNCTION  ZODICL:  ISW,  NORDER,  RT,  WT 
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5.0  COMMON  BLOCK  DATA  DICTIONARY 


The  data  dictionary  for  the  COMMON  blocks  in  the  MOSART  program  and 
related  utility  codes  follow.  A  brief  summary  of  the  COMMON  block  contents  is 
included,  together  with  a  list  of  routines  in  which  the  block  occurs.  Each  variable  is 
listed  by  name,  array  size  (if  applicable),  variable  type,  and  a  description.  See  the 
PARAMETER  Data  Dictionary  for  those  arrays  whose  size  is  defined  by  a 
PARAMETER  constant. 

All  COMMON  blocks  are  SAVEd  in  each  routine  in  which  it  appears,  so  all  of  the 
variables  are  static. 
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AEROSL 


This  COMMON  block  contains  the  aerosol  model  parameters  and  the 
phase  functions  for  the  various  atmospheric  components. 

Common  Block  AEROSL  used  in: 

AERSOL  ARSLBD  BBARSL  BNDPAR  HYDROM  MARINE 

PHFUNC  PHYDRO  PRCALC  RSHINE 


Variable  Name 

lyge 

Description 

WLA(NWLCLD) 

REAL 

Wavelength  (pm) 

NRH(30) 

INTEGER 

Number  of  relative  humidity  values 

RHP(4,30) 

REAL 

Relative  humidity 

ANGLE(NANG) 

REAL 

Scattering  angles  (deg) 

SCPHA(NANG) 

REAL 

Aerosol  phase  function  (sr‘^) 

SCPHH(NANG) 

REAL 

Hydrometer  phase  function  (sr' ) 

ASYMD(47) 

REAL 

Asymmetry  factor 

TMPAMM  (4) 

REAL 

Water  cloud  temperatures  (K) 

TMPIMM  (4) 

REAL 

Ice  cloud  temperatures  (K) 

NTMP  (30) 

INTEGER 

Number  of  temperatures  used  for  a 

cloud 
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AERSCA 


This  COMMON  block  contains  the  absorption  and  scattering  coefficients 
for  the  atmospheric  aerosols  as  a  function  of  wavelength  and  altitude, 
together  with  the  keys  and  proportionality  factors  for  relative  humidity. 

Common  Block  AERSCA  used  in: 

AERSOL  BBARSL  BNDPAR  PHFUNC 


Variable  Name 

Type 

Descriotion 

SCAERO(NWLAER, 

MLMAX) 

ABAERO(NWLAER, 

REAL 

Aerosol  scattering  coefficient 
(km"')  as  a  function  of 
wavelength  and  altitude 

MLMAX) 

REAL 

Aerosol  absorption  coefficient 
(km"*)  as  a  function  of 
wavelength  and  altitude 

JRH(MLMAX) 

INTEGER 

First  index  for  relative  humidity 

JRHP(MLMAX) 

INTEGER 

Second  index  for  relative  humidity 

FACRH(MLMAX) 

REAL 

Proportional  value  between  first 
and  second  indices 
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AERSCC 


This  COMMON  block  contains  the  absorption  and  scattering  coefficients  as  a 
function  of  wavelength  and  altitude. 

Common  Block  AERSCC  used  in: 

BNDPAR  HYDROM 

Variable  Name  Type  Description 

ABCLOU(NWLCLD, 

MLMAX)  REAL  Water  cloud  absorption  coefficient 

(km'^)  as  a  function  of 
wavelength  and  altitude 

SCCLOU(NWLCLD, 

MLMAX)  REAL  Water  cloud  scattering  coefficient 

(km'^)  as  a  function  of 
wavelength  and  altitude 

ABCIRR(NWLCLD, 

MLMAX)  REAL  Cirrus  cloud  absorption  coefficient 

(km‘^)  as  a  function  of 
wavelength  and  altitude 

SCCIRR(NWLCLD, 

MLMAX)  REAL  Cirrus  cloud  scattering  coefficient 

(km’^)  as  a  function  of 
wavelength  and  altitude 

ABCICE(NWLCLD, 

MLMAX)  REAL  Ice  cloud  absorption  coefficient 

(km'^)  as  a  function  of 
wavelength  and  altitude 

SCCICE(NWLCLD, 

MLMAX)  REAL  Ice  cloud  scattering  coefficient 

(km'^)  as  a  function  of 
wavelength  and  altitude 
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AERSLA 


This  COMMON  block  contains  the  aerosol  and  hydrometeor  absorption 
coefficients. 

Common  Block  AERSLA  used  in: 

AERSOL  ARSABD  HYDROM  MARINE 


Variable  Name 

lype 

Descriotion 

CA(NWLCLD,30,4) 

REAL 

Aerosol  absorption  coefficients 

(normalized) 
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AERSLX 


This  COMMON  block  contains  the  aerosol  and  hydrometeor  extinction 
coefficients. 

Common  Block  AERSLX  used  in: 

AERSOL  ARSXBD  HYDROM  MARINE 

Variable  Name  Type  Description 

CX(NWLCLD,30,4)  REAL  Aerosol  extinction  coefficients 

normalized  to  unity  at  0.55  pm 
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AERUSR 


This  COMMON  block  contains  the  parameters  for  the  user-defined 
aerosol  model. 


Common  Block  AERUSR  used  in: 
AERSOL  PHFUNC 


Variable  Name 

Type 

Descriotion 

GAERO(NWLAER, 

MLMAX) 

REAL 

User-defined  aerosol  asymmetry  factor 
as  a  function  of  wavelength  and 
altitude 

GUSER(NWLAER) 

PHUSER(4,NANG, 

REAL 

User-defined  aerosol  asymmetry  factor 
corresponding  to  PHUSER 

NWLAER) 

REAL 

User-defined  aerosol  phase  function 
(polarization  terms  included) 
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ANTECD 

This  COMMON  block  contains  the  24-hour  antecedent  parameters  for  the  heat 
balance  calculations. 

Common  Block  ANTECD  used  in: 

BRBNDR  DEFALT  INITL 

Variable  Name  Type  Description 

Number  of  points 
Hour  of  day  (deg.) 

Air  temperature  (K) 

Relative  humidity  (fraction) 

Wind  speed  (m/sec) 

Pressure  (mb) 

Low/mid/high  etage  cloud  cover 
Low/mid/high  etage  cloud  base 
altitude  (km) 

Low/mid/high  etage  cloud  top 
altitude  (km) 

Antecedent  data  switch 


NANTE 

INTEGER 

AHR(NANTMX) 

REAL 

ATMP(NANTMX) 

REAL 

ARH(NANTMX) 

REAL 

AWND(NANTMX) 

REAL 

APRS(NANTMX) 

REAL 

ACLCV(NANTMX,3) 

REAL 

ACLBS(NANTMX,3) 

REAL 

ACLTP(NANTMX,3) 

REAL 

ISWANT 

INTEGER 
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ARSLSC 


This  COMMON  block  contains  various  parameters  used  for  the  aerosol 
scattering  calculations. 

Common  Block  ARSLSC  used  in: 

BNDPAR  INICPL  MLSCAT  PHFUNC  PRCALC  PTHOSB 
RSHINE 


Variable  Name 

SCATTR(NANG, 

MAXLAT.MAXLON, 

Type 

Description 

MLMAX) 

SCTVAR(NANG, 

MAXLAT.MAXLON, 

REAL 

Scatter  term  equal  to  scatter 

coefficient  times  the  phase 
function  divided  by  4*PI 
(km""  sr'^) 

MLMAX) 

ASYM(MLMAX, 

REAL 

MAXLAT.MAXLON) 

ASYMA(MLMAX, 

REAL 

Combined  asymmetry  factor 

MAXLAT.MAXLON) 

SCATOT(MLMAX, 

REAL 

Aerosol  asymmetry  factor 

MAXLAT.MAXLON) 

REAL 

Combined  scattering  coefficient 
(km'"') 
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ATM  DAT 


This  COMMON  block  contains  the  model  atmosphere  parameters. 
Common  Block  ATMDAT  used  in: 


ATMPRN 

ATMSBD 

BCKPRN 

BRBNDR 

CALCUL 

CIRRUS 

DFLT2 

EQABS 

EQUABS 

INITL 

PRCALC 

SCNRIO 

SETALT 

SETBCK 

SHNGEO 

SRCGEO 

SRCIRR 

USRDEF 

Variable  Name 

Type 

Descriotion 

REBAR 

DOUBLE  PRECISION 

Mean  radius  of  the  earth  (km) 

REPOL 

DOUBLE  PRECISION 

Polar  radius  of  the  earth  (km) 

REEQU 

DOUBLE  PRECISION 

Equatorial  radius  of  the  earth 
(km) 

Z(NL) 

REAL 

Altitude  (km) 

P(NL,24) 

REAL 

Pressure  (mb) 

T(NL,24) 

REAL 

Temperature  (K) 

LATIT(24) 

REAL 

Latitude  (deg) 

WINDEF(24) 

REAL 

Effective  wind  speed  (m/sec) 

LATST(MAXLAT) 

REAL 

Storage  for  model  atmosphere 
latitude  (deg) 

LATST(MAXLON) 

REAL 

Storage  for  model  atmosphere 
longitude  (deg) 
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BACKGD 


This  COMMON  block  contains  the  material  reflectivity  and 
temperature  parameters  and  the  scene  composition  parameters. 

Common  Block  BACKGD  used  in: 

ATMPRN  BCKGND  BKGDBD  BRBNDR  COUPLE  GETBCK 

INITL  SETBCK  SPCLYR  USRBCK 


Variable  Name 

lyp-t 

NWLBK(NMATL) 

INTEGER 

WLBKGD(90,NMATL) 

REAL 

NMATRL 

INTEGER 

REFLEC(90,NMATL) 

REAL 

IBKTYP(NMATL) 

INTEGER 

FRDIF(NMATL) 

REAL 

BKRGH(NMATL) 

REAL 

CORREL(NMATL) 

REAL 

IRGH(NMATL) 

INTEGER 

FINC(NMATL) 

REAL 

ITINC(NMATL) 

INTEGER 

KMATL 

INTEGER 

INDEXB(NMATL) 

INTEGER 

FRACT(NMATL) 

REAL 

TEMPM(NAMTL,6 

MAXLAT.MAXLON) 

REAL 

IHTFLG(NMATL) 

INTEGER 

HTALPH(NMATL) 

REAL 

HTEPS(NMATL) 

REAL 

HTCOND(NMATL) 

REAL 

CHARLN(NMATL) 

REAL 

SPHEAT(NMATL) 

REAL 

DENSTY(NMATL) 

REAL 

STDVSC(NMATL) 

REAL 

Description 

Number  of  wavelengths 
Wavelength  (pm) 

Number  of  materials 
Hemispherical  average  reflectivity 
Background  reflection  index 
Fraction  of  background  reflection 
that  is  diffuse 

Roughness  standard  deviation  (m) 

Roughness  correlation  length  (m) 

Roughness  index 

Fraction  of  air  mixed  with  material 

Type  of  inclusion 

Number  of  materials  in  scene 

Material  index 

Fraction  of  material  defined  by 
INDEX  in  scene 

Temperature  (K)  of  each  material  in 
sun  light  and  in  shade 
Heat  balance  calculation  index 
Solar  absorptivity 
Thermal  emissivity 
Conduction  coefficient  (W/m^/K) 
Convective  characteristic  length  (m) 
Specific  heat  (W-sec/gm/K) 

Density  (gm/m^) 

Standard  deviation  of  the  material 
defined  by  INDEX  divided  by 
the  mean 
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BACKGD  (continued) 


ZHLYR(2,NMATL) 

NWLUSR 

WLUSR(IOO) 
REFUSR(100,3)  REAL 
WAVEHT(MAXLAT, 
MAXLON) 
SLOPEW(MAXLAT, 
MAXLON) 
FOAM(MAXLAT, 
MAXLON) 
INDLYR(3,NMATL) 


REAL 

Layer  thickness  (m) 

INTEGER 

Number  of  spectral  points  for 
user-defined  materials 

REAL 

Wavelength  (pm) 

User-defined  diffuse  reflectivity 

REAL 

Sea  wave  height  (m) 

REAL 

Sea  rms  wave  slope 

REAL 

Fraction  of  foam 

INTEGER 

Indices  of  layers 
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BCKDAT 


This  COMMON  block  contains  the  parameters  for  the  paths  to  each  ba 
background  altitude. 

Common  Block  BCKDAT  used  in: 

BCKPRN  EQUABS  INTEG  KDISTR  PRCALC  PUTHDR 

SCNRIO  ZROINT  ATMOUT  BCKINT  MRFLTR 


Variable  Name 

Typ.e. 

Descriotion 

NBCKZ 

INTEGER 

Number  of  background  altitudes 

LBCKXX(MLMAX) 

INTEGER 

Background  altitude  indices 

ZBCK(MLMAX) 

REAL 

Altitude  (km) 

TAUBZT(NAZMAX, 

MLMAX,NGMAX) 

REAL 

Running  integral  of  transmission  at 
altitude 

RADBZT(NAZMAX, 

MLMAX,NGMAX) 

REAL 

Running  integral  of  thermal  path 
radiance  to  background 
(W/cm^/sr) 

RSLBZT(NAZMAX, 

MLMAX.NGMAX) 

REAL 

Running  integral  of  Apparent  solar 
irradiance  at  background 
(W/cm^) 

RLNBZT(NAZMAX, 

MLMAX.NGMAX) 

REAL 

Running  integral  of  apparent  lunar 
irradiance  at  background 
(W/cm^) 

RSCBZT(NAZMAX, 

MLMAX,NGMAX) 

REAL 

Running  integral  of  scattered  path 
radiance  to  background 
(W/cm^/sr) 

RADSHB(NAZMAX, 

MLMAX) 

REAL 

Upper  thermal  skyshine  irradiance 
at  background  (W/cm^/cm"') 

RDSHBT(NAZMAX, 

MLMAX, NGMAX) 

REAL 

Running  integral  of  upper  thermal 
skyshine  irradiance  at 
background  (W/cm^) 
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BCKDAT  (continued) 


RDSHSB(NAZMAX, 

MLMAX) 

REAL 

RSHSBT(NAZMAX, 
MLMAX, NGMAX) 

REAL 

SGMEZT(NAZMAX, 
MLMAX, NGMAX) 

REAL 

TASCZT(NAZMAX, 

MLMAX,NGMAX) 

REAL 

DRADZT(NAZMAX, 

MLMAX,NGMAX) 

REAL 

SWBCK(MLMAX, 

NGMAX) 

REAL 

TBCK(MLMAX, 

MAXLAT,MAXLON) 

LZ(MLMAX,NGMAX) 

REAL 

INTEGER 

Upper  scattered  skyshine  irradiance 
at  background  (W/cmVcm'^) 

Running  integral  of  upper  scattered 
skyshine  irradiance  at 
background  (W/cm^) 

Running  integral  of  scintillation  at 
background 

Running  integral  of  in-scattered 
transmittance 

Running  integral  of  standard 
deviation  of  the  thermal 
path  radiance 

Switch  for  availability  of 

background  parameters 

Temperature  at  background  (K) 

Altitude  indices 


349 


BRBNDT 


This  COMMON  block  contains  the  altitude  and  time  dependent 


heat  fluxes. 

Common  Block  BRBNDT  used  in: 
BRBNDR  SRCFLX 


Variable  Name 

Type 

ZLYR(10) 

REAL 

TLBR(101) 

REAL 

PLBR(101) 

REAL 

RHLYER(10,NTIME) 

REAL 

ULWZ(10,NTIME) 

REAL 

DLWZ(10,NTIME) 

REAL 

USWZ(10,NTIME) 

REAL 

DSWZ(10,NTIME) 

REAL 

BSWZ(10,NTIME) 

REAL 

Description 

Altitude  (km) 

Temperature  (K) 

Pressure  (mb) 

Relative  humidity 
Upward  long-wave  flux  (W/m^) 
Downward  long-wave  flux  (W/m^) 
Upward  short-wave  flux  (W/m^) 
Downward  short-wave  flux  (W/m^) 
Beam  short-wave  flux  (W/m^) 
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BSTAER 


This  COMMON  block  contains  the  parameters  for  the  temperature 
dependent  background  stratospheric  aerosol  model. 

Common  Block  BSTAER  used  in: 

AERSOL  BKSTBD  PHFUNC 


Variable  Name 

Type 

Descriotion 

IWL(NWLAER) 

INTEGER 

Key  relating  the  other  aerosol 

wavelength  array  to  WLBST 

WLBST(68) 

REAL 

Wavelength  (pm) 

STATMP(NSTTMP) 

STMPSC 

REAL 

Temperature  (K) 

(NSTTMP,68) 

STMPAB 

REAL 

Normalized  scattering  coefficient 

(NSTTMP,68) 

STMPSY 

REAL 

Normalized  absorption  coefficient 

(NSTTMP,68) 

REAL 

Asymmetry  factor 
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CDRYDS 


This  COMMON  block  contains  the  user-defined  model  name. 

Common  Block  CDRYDS  used  in: 

DIREMS  EMISBD 


Variable  Name 

Type 

Description 

FRAC(2,0:NLMAX,6) 

REAL 

Layer  fraction  volume 

DEP(0;NLMAX,6) 

REAL 

Layer  depth  (m) 
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CFCBM 


This  COMMON  block  contains  the  cross-sections  for  the 
chloro-fluorocarbons. 


Common  Block  CFCBM  used  in: 
ABSCFC  CFCBD 


Variable  Name 

Type 

Nil 

NV11(2) 

INTEGER 

INTEGER 

V1 1(2,2) 

REAL 

CFC1 1(5,75) 

REAL 

N12 

NV12(2) 

INTEGER 

INTEGER 

VI  2(2,2) 

REAL 

CFC1 2(5,1 65) 

REAL 

N13 

N  VI  3(3) 

INTEGER 

INTEGER 

VI  3(2,3) 

REAL 

CFC13(5,177) 

REAL 

N14 

NV14(1) 

INTEGER 

INTEGER 

V14(2,1) 

REAL 

CFC1 4(5,34) 

REAL 

Description 

Number  of  spectral  bins  for  CFC-1 1 
Number  of  spectral  points  in  each 
bin 

Beginning  and  ending  values  for 
each  bin  (cm'^) 

Cross-sections  for  CFC-1 1 
(molecules'^  cm^) 

Number  of  spectral  bins  for  CFC-1 2 
Number  of  spectral  points  in  each 
bin 

Beginning  and  ending  values  for 
each  bin  (cm'^) 

Cross-sections  for  CFC-1 2 
(molecules'’  cm^) 

Number  of  spectral  bins  for  CFC-1 3 
Number  of  spectral  points  in  each 
bin 

Beginning  and  ending  values  for 
each  bin  (cm'’) 

Cross-sections  for  CFC-1 3 
(molecules'’  cm^) 

Number  of  spectral  bins  for  CFC-1 4 
Number  of  spectral  points  in  each 
bin 

Beginning  and  ending  values  for 
each  bin  (cm  ’) 

Cross-sections  for  CFC-1 4 
(molecules  ’  cm^) 
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CFCBM  (continued) 


N21 

NV21(3) 

INTEGER 

INTEGER 

V21(2,3) 

REAL 

CFC21  (5,172) 

REAL 

N22 

NV22(3) 

INTEGER 

INTEGER 

V22(2,3) 

REAL 

CFC22(5,172) 

REAL 

N113 

NV113(2) 

INTEGER 

INTEGER 

V1 13(2,2) 

REAL 

CFC1 13(5,440) 

REAL 

N114 

NV114(4) 

INTEGER 

INTEGER 

V1 14(2,4) 

REAL 

CFC1 14(5,358) 

REAL 

N115 

NV115(3) 

INTEGER 

INTEGER 

V1 15(2,3) 

REAL 

CFC1 15(5,186) 

REAL 

Number  of  spectral  bins  for  CFC-21 
Number  of  spectral  points  in  each 
bin 

Beginning  and  ending  values  for 
each  bin  (cm*^) 

Cross-sections  for  CFC-21 
(molecules'^  cm^) 

Number  of  spectral  bins  for  CFC-22 
Number  of  spectral  points  in  each 
bin 

Beginning  and  ending  values  for 
each  bin  (cm'^) 

Cross-sections  for  CFC-22 
(molecules'^  cm^) 

Number  of  spectral  bins  for  CFC-113 
Number  of  spectral  points  in  each 
bin 

Beginning  and  ending  values  for 
each  bin  (cm'^) 

Cross-sections  for  CFC-1 1 3 
(molecules'^  cm^) 

Number  of  spectral  bins  for  CFC-1 14 
Number  of  spectral  points  in  each 
bin 

Beginning  and  ending  values  for 
each  bin  (cm'^) 

Cross-sections  for  CFC-1 14 
(molecules'^  cm^) 

Number  of  spectral  bins  for  CFC-1 15 
Number  of  spectral  points  in  each 
bin 

Beginning  and  ending  values  for 
each  bin  (cm'^) 

Cross-sections  for  CFC-1 15 
(molecules'^  cm^) 
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CGWTS 


This  COMMON  block  contains  the 
Curtis-Godson  approximation. 

Common  Block  CGWTS  used  in: 
BNDPAR  PTHTAU 


Variable  Name 

Type 

CGWT1(ISMX, 

MLMAX.MAXLAT, 

MAXLON) 

REAL 

CGWT2(ISMX, 

MLMAX.MAXLAT, 

MAXLON) 

REAL 

CGWT3(ISMX, 

MLMAX.MAXLAT, 

MAXLON) 

REAL 

CGWT4(ISMX, 

MLMAX.MAXLAT, 

MAXLON) 

REAL 

summing  weights  for  the 


Description 


Curtis-Godson  summing  weight  for  SI 
Curtis-Godson  summing  weight  for  S2 
Curtis-Godson  summing  weight  for  S3 
Curtis-Godson  summing  weight  for  S6 
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CHRCNM 


This  COMMON  block  contains  the  miscellaneous  CHARACTER  strings 
used  in  output  files. 

Common  Block  CHRCNM  used  in: 

ATMPRN  BRBNDR  CHRCBD  EQUABS  PUTCLD  SUMFIL 

USRBCK  MENU  PLTDRV 

Variable  Name  Type  Description 

TAERO(19) 

TITAER(19) 

TTYPE(24) 

THAZE(9,2) 

TUPPER(2) 

TITBKD(-4:118) 

RNTYPE(5) 

CLDRNM(22) 

CLDABR(22) 

SNTYPE(6) 

TITBKG(-4:118) 


CHARACTER*50  Aerosol  titles 
CHARACTER*!  0  Aerosol  abbreviated  titles 
CHARACTER*50  Model  atmosphere  titles 
CHARACTER*50  Haze  profile  titles 
CHARACTER*50  Upper  atmosphere  titles 
CHARACTER*!  0  Abbreviated  background  titles 
CHARACTER*40  Rain  model  titles 
CHARACTER*60  Cloud/fog/rain  titles 
CHARACTER*8  Abbreviated  cloud  titles 
CHARACTER*26  Snow  model  titles 
CHARACTER*60  Background  titles 


356 


CHRPRM 


This  COMMON  block  contains  the  miscellaneous  CHARACTER  strings 
used  in  the  plotting  package. 

Common  Block  CHRPRM  used  in: 

PLTBD  PLTDRV 

Variable  Name  Type  Description 

TLABEL(5)  CHARACTER*50  Plot  labels 

XLAB  CHARACTER*42  X-axis  label 

MOLNAM(NSMX)  CHARACTER*!  8  Molecular  name 
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CLDPAR 


This  COMMON  block  contains  the  parameters  for  determining  the 
impact  of  clouds  on  the  broad  band  heat  fluxes. 

Common  Block  CLDPAR  used  in; 

BRBNBD  CLDLYR  FLUXLW 


Variable  Name 

Type 

Descriotion 

TLC 

REAL 

Low  etage  cloud  optical  depth 

GLC 

REAL 

Low  etage  cloud  asymmetry  factor 

EL 

REAL 

Low  etage  cloud  emissivity 

TMC 

REAL 

Middle  etage  cloud  optical  depth 

CMC 

REAL 

Middle  etage  cloud  asymmetry  factor 

EM 

REAL 

Middle  etage  cloud  emissivity 

THC 

REAL 

High  etage  cloud  optical  depth 

GHC 

REAL 

High  etage  cloud  asymmetry  factor 

EH 

REAL 

High  etage  cloud  emissivity 
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CLDRN 


This  COMMON  block  contains  the  parameters  for  altitude  dependent 
cloud/fog/rain/snow  conditions. 

Common  Block  CLDRN  used  in; 

CLDRBD  ENDPT  EQUABS  GETCLD  HYDROM  PUTCLD 

RAINSP  TANGPT  USRCLD 


Variable  Name 

Type 

Descriotion 

ZCLD(21) 

REAL 

Altitude  (km) 

CLDEQ(21,15) 

REAL 

Liquid  water  content  (gm/m®) 

XLWC(15) 

REAL 

Conversion  from  liquid  water  content 
to  extinction  at  0.55  pm 
(km'V(gm/m®)) 

RNRT(21,15) 

REAL 

Rain  rate  (mm/hr) 

NCLD(5) 

INTEGER 

Cloud  index  for  a  given  rain  model 

NZCLD 

INTEGER 

Number  of  altitude  points  in  profile 

NRNTYP(5) 

INTEGER 

Rain  index 

NZUCLD 

INTEGER 

Number  of  user-defined  altitudes 

ZUCLD(25) 

REAL 

User-defined  altitude  (km) 

CLDEQU(25) 

REAL 

User-defined  liquid  water  content 
(gm/m®) 

XLWCU 

REAL 

Conversion  from  liquid  water  content 
to  extinction  at  0.55  pm  for 
user-defined  cloud 
(km'V(gm/m®)) 

CLDICU(25) 

REAL 

User  defined  ice  content  (gm/m®) 

XICEU 

REAL 

Conversion  from  ice  content  to 
extinction  at  0.55  pm  for 
user-defined  cloud 
(km'V(gm/m^)) 

RNRTU(25) 

REAL 

User-defined  rain  rate  (mm/hr) 

NRNTYU 

INTEGER 

User-defined  rain  index 

SNRTU(25) 

REAL 

User-defined  snow  rate  (mm/hr) 

NSNTYU 

INTEGER 

User-defined  snow  index 

CLDBS(16) 

REAL 

Cloud  base  altitude  (km) 

CLDTP(16) 

REAL 

Cloud  top  altitude  (km) 

NAERCL(16) 

INTEGER 

Aerosol  index  for  cloud  model 
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CLDUSR 


This  COMMON  block  contains  the  parameters  for  a  user-defined 
cloud/rain/snow  model. 


Common  Block  CLDUSR  used  in: 

BNDPAR  HYDROM  PHYDRO 


Variable  Name 

Type 

NWLCLU 

INTEGER 

WLCLU(IOO) 

REAL 

SLWCU(IOO) 

REAL 

ALWCU(IOO) 

REAL 

GLWCU(IOO) 

REAL 

SICEU(IOO) 

REAL 

AICEU(IOO) 

REAL 

GICEU(IOO) 

REAL 

USRCLD 

Description 

Number  of  spectral  points 
Wavelength  (pm) 

Normalized  scatter  coefficient 
for  water 

Normalized  absorption  coefficient 
for  water 

Asymmetry  factor  for  water 
Normalized  scatter  coefficient  for  ice 
Normalized  absorption  coefficient 
for  water 

Asymmetry  factor  for  ice 
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CLIMAT 


This  COMMON  block  contains  the  layer  indices  for  the  broad  band 
heat  flux  calculations. 

Common  Block  CLIMAT  used  in: 

FLUXLW  OPATH  PRETEM  SRAT 

Variable  Name  Type  Description 

IALAY(10)  INTEGER  Altitude  index  for  each  layer 
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C02PAR 

This  COMMON  block  contains  the  LOWTRAN  band  parameters  for 
carbon  dioxide. 

Common  Block  C02PAR  used  in: 

LOWTRN  UMIXBD 

Variable  Name  Type  Description 

CPC02(1219)  REAL  LOWTRAN  band  model  parameters 

for  carbon  dioxide 
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CONSTN 


This  COMMON  block  contains  the  basic  constants  used  throughout  the 
program. 


Common  Block  CONSTN  used  in: 


ABSMOL 

AIRTMP 

AMOLSC 

BCKGND 

BCKPRN 

BDRF 

BNDPAR 

BRBNDR 

CNSTNT 

CSPHFN 

DBINIT 

DESAER 

DNDR 

DPLDT 

ECLGAL 

EQABS 

EQUABS 

EQUECL 

FRESNL 

GALRAD 

GEOM 

HTBLNC 

INICPL 

INIGEO 

MIE 

MIEPHS 

MLSCAT 

PLANCK 

PLANET 

PRCALC 

PTHTAU 

RADTRX 

RADTRY 

SATUR 

SCINTL 

SCNRIO 

SHNGEO 

SKYNOI 

SLPOS 

SPTRIG 

SRCGEO 

SRCIRR 

SUPK 

TERMPR 

UDLAY 

ZODICL 

BBTEMP 

INVPLK 

ASPECT 

ATMPRN 

BAND 

BETA 

BETAU 

BMOD 

COAT 

COMFNC 

COUPLE 

DFLT2 

DFLT8 

DIREMS 

ENDPT 

EPHEML 

EPHEMS 

ESFIT 

EXGALS 

FILTER 

GETSLR 

HOREQU 

HORIZN 

INITL 

LYRINT 

MARINE 

MODBCK 

PHFUNC 

PHYDRO 

PRETEM 

PROFAC 

PTHOSB 

RAINEX 

REFEST 

RSHINE 

SETALT 

SETUP 

SHADOW 

SLUNAR 

SNOWEX 

SPCLYR 

STARAD 

STGEOM 

STRCN2 

USRDEF 

XTERP 

ZLAT 

FPTEST 

ATMOUT 

VISUAL 

Variable  Name 

Type 

DPI 

DOUBLE  PRECISION 

DRAD 

DOUBLE  PRECISION 

DE 

DOUBLE  PRECISION 

DEPSMN 

DOUBLE  PRECISION 

DEPSMX 

DOUBLE  PRECISION 

DEPSDF(2) 

DOUBLE  PRECISION 

DEPSDN 

DOUBLE  PRECISION 

PI 

REAL 

RAD 

REAL 

Description 

3.1415926358979 
Pi/180  for  conversion  of  degrees  to 
radians 

2.71828182845904 
Smallest  normalized  positive  number 
Largest  normalized  positive  number 
Smallest  value  that  can  be 

significantly  added  (1)  or 
subtracted  (2)  from  unity 
Smallest  denormalized  positive 
number 
3.14159 

Pi/180  for  conversion  of  degrees  to 
radians 


363 


CONSTN  (continued) 


E 

REAL 

2.71828 

EPSMIN 

REAL 

Smallest  normalized  positive  number 

EPSMAX 

REAL 

Largest  normalized  positive  number 

EPSDIF(2) 

REAL 

Smallest  value  that  can  be 

significantly  added  (1)  or 
subtracted  (2)  from  unity 

EPSDNM 

REAL 

Smallest  denormalized  positive 
number 

IRADIX 

INTEGER 

Radix;  basic  unit  of  calculation 

ITR 

INTEGER 

Number  of  bits  in  REAL  significand 

ITD 

INTEGER 

Number  of  bits  in  DOUBLE 
PRECISION  significand 

IRND 

INTEGER 

Addition  rounding  switch 

NGRD 

INTEGER 

Number  of  guard  digits 

MACHEP 

INTEGER 

Smallest  exponent  for  1+e  (REAL) 

NEGEP 

INTEGER 

Smallest  exponent  for  1-e  (REAL) 

MACHED 

INTEGER 

Smallest  exponent  for  1+e  (DOUBLE 
PRECISION) 

NEGEPD 

INTEGER 

Smallest  exponent  for  1-e  (DOUBLE 
PRECISION) 

MINEXP 

INTEGER 

Minimum  REAL  exponent 

MAXEXP 

INTEGER 

Maximum  REAL  exponent 

MINEXD 

INTEGER 

Minimum  DOUBLE  PRECISION 
exponent 

MAXEXD 

INTEGER 

Maximum  DOUBLE  PRECISION 
exponent 

lEXPR 

INTEGER 

Number  of  bits  in  REAL  exponent 

lEXPD 

INTEGER 

Number  of  bits  in  DOUBLE 
PRECISION  exponent 

lUNDFL 

INTEGER 

Gradual/abrupt  underflow  switch 

ICMLMT 

INTEGER 

One's/two's/signed  complement 
switch 

lEND 

INTEGER 

Big/little-endian  switch 

IREG 

INTEGER 

Register  vs.  storage  calculation 
switch 
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CONTNS 


This  COMMON  block  contains  the  parameters  for  the  self-  and 
foreign-broadened  water  vapor  continuum. 

Common  Block  CONTNS  used  in: 

H20BD  H20CNT 


Variable  Name 

Tyee 

Description 

VS1 

REAL 

Initial  wavenumber  (cm'^) 

VS2 

REAL 

Final  wavenumber  (cm'^) 

DVS 

REAL 

Wavenumber  increment  (cm'^) 

NPTSC 

INTEGER 

Number  of  spectral  points 

TEMP(2) 

REAL 

Temperature  (K) 

SBAC(-1:2001,2) 

REAL 

Temperature  dependent  self-broadened 
continuum  (amagaf^  cm*’) 

FBAC(-1:2001) 

REAL 

Foreign  broadened  continuum 
(amagat"'  cm'^) 
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CRASYM 


This  COMMON  block  contains  the  asymmetry  factors  for  the  standard, 
sub-visual,  and  Heymsfield  cirrus  cloud  models. 

Common  Block  CRASYM  used  in: 

CIRRBD  PHYDRO 

Variable  Name  Type  Description 

CIRASY 

(NWLCLD,4,3)  REAL  Asymmetry  factors 
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CURGDA 


This  COMMON  block  contains  the  Curtis-Godson  summing  variables  for 
correlation  calculations. 


Common  Block  CURGDA  used  in: 

PRCALC  PTHTAU  RSHINE 


Variable  Name 

lype 

Descriotion 

S1S(ISMX,MLMX2) 

REAL 

Intermediate  values  of  the  summing 
variable  for  Lorentz  half-width 

times  the  line  density 

S2S(ISMX,MLMX2) 

REAL 

Intermediate  values  of  the  summing 

variable  for  Doppler  half-width 
times  the  line  density 
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CURGDB 


This  COMMON  block  contains  the  Curtis-Godson  summing  variables  for 
correlation  calculations. 


Common  Block  CURGDB  used  in: 

PRCALC  PTHTAU  RSHINE 


Variable  Name 

Type 

Descriotion 

S3S(ISMX,MLMX2) 

REAL 

Intermediate  values  of  the  summing 
variable  for  line  density  (cm) 

S4S(ISMX,MLMX2) 

REAL 

Intermediate  values  of  the  summing 
variable  for  the  continuum  optical 

depth 
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CURGDC 


This  COMMON  block  contains  the  Curtis-Godson  summing  variables  for 
correlation  calculations. 


Common  Block  CURGDC  used  in: 

PRCALC  PTHOSB  PTHTAU  RSHINE 


Variable  Name 

Ty^e 

Descriotion 

S5S(ISMX,MLMX2) 

REAL 

Intermediate  values  of  the  summing 

variable  for  scattering  optical 
depth 

S6S(ISMX,MLMX2) 

REAL 

Intermediate  values  of  the  summing 

variable  for  the  square  of  the 
Lorentz  half-width 


m 
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DESDAT 


This  COMMON  block  contains  the  parameters  for  the  desert  aerosol 
model. 

Common  Block  DESDAT  used  in: 

DESAER  DSRTBD 


Variable  Name 

ly-Bl 

Descriotion 

DESEX(NWLAER,4) 

REAL 

Normalized  extinction  coefficient 

equal  to  unity  at  0.55  pm 

DESAB(NWLAER,4) 

REAL 

Normalized  absorption  coefficient 

DESG(NWLAER,4) 

REAL 

Asymmetry  factor 
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DEVCNM 


This  COMMON  block  contains  the  CHARACTER  strings  for  the  binary 
data  bases  used  by  the  code. 

Common  Block  DEVCNM  used  in: 


DBINIT 

DEVCBD  FILRT 

RDGBL  RDSCN  SUMFIL 

ASCBIN 

INSTDB 

Variable  Name 

lyee 

Description 

NFBMD(MOLMAX)  CHARACTER*60 

File  names  of  the  direct  access  binary 
data  base  files 

SUFFIX(18) 

CHARACTER‘10 

Suffixes  for  all  input  and  output  files 

NFGBL 

CHARACTER*60 

File  name  for  global  climatology  data 
base 

NFSCN 

CHARACTER*60 

File  name  for  terrain  scene  and 
altitude  data  base 

NFVFT 

CHARACTER*60 

File  name  for  MODTRAN  band 
parameter  data  base 

DIRPTH 

CHARACTER*60 

Data  base  directory  path 
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DEVICE 


This  COMMON  block  contains  the  file  unit  numbers  used  by  the  code. 


BRBNDR 

CALCUL 

DBINIT 

EQUABS 

FLSTAT 

GETASP 

GETPOS 

GETSLR 

INITL 

PUTCLD 

PUTHDR 

PUTSLR 

SUMFIL 

USRBCK 

USRCLD 

FPTEST 

INSTDB 

MRFLTR 

VISUAL 

Descriotion 

Common  Block  DEVICE  used  in: 


ABSMOL 

ATMPRN  BCKPRN 

DEFALT 

DEVCBD  DFLT8 

GETATM 

GETBCK  GETCLD 

MIEINP 

MOSART  PRCALC 

RDFLTR 

RDGBL  RDSCN 

ASCBIN 

BBTEMP  CRFILE 

ATMINT 

ATMOUT  BCKINT 

Variable  Name 

Type 

IFINP 

INTEGER 

IFOUT 

INTEGER 

IFATM 

INTEGER 

IFBCK 

INTEGER 

IFPLM 

INTEGER 

IFMSC 

INTEGER 

IFHTR 

INTEGER 

IFTRN 

INTEGER 

IFUAT 

INTEGER 

IFUBK 

INTEGER 

IFUCL 

INTEGER 

IFUAR 

INTEGER 

IFASC 

INTEGER 

IFTBL 

INTEGER 

IFFLT 

INTEGER 

IFTP7 

INTEGER 

IFTP8 

INTEGER 

IFDIS 

INTEGER 

IFBMD(MOLMAX)  INTEGER 

IFVFT 

INTEGER 

IFGBL 

INTEGER 

IFSCN 

INTEGER 

IFSCR 

INTEGER 

IFGEO 

INTEGER 

Input  file  number 
Output  file  number 
Atmospheric  binary  file  number 
Background  binary  file  number 
Plume  binary  file  number 
Multiple  scatter  binary  file  number 
Heat  transfer  binary  file  number 
Transmittance  binary  file  number 
User-defined  atmosphere  file  number 
User-defined  background  file  number 
User-defined  cloud  file  number 
User-defined  aerosol  file  number 
ASCII  conversion  file  number 
Tabular  file  number 
Filter  response  file  number 
LOWTRAN  TAPE?  file  number 
LOWTRAN  TAPES  file  number 
DIS  in-band  file  number 
Molecular  data  base  file  numbers 
MODTRAN  band  parameter  file 
number 

Global  data  base  file  number 
Scene  data  base  file  number 
Scratch  file  number 
Geometry  scratch  file  number 
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DEVICE  (continued) 


IRECL(MOLMAX) 

IRECLU 

INTEGER 

INTEGER 

IRECLG 

IRECLS 

NVRMAX(MOLMAX) 

INTEGER 

INTEGER 

INTEGER 

NVRMXU 

INTEGER 

NVRMXG 

INTEGER 

NVRMXS 

INTEGER 

FLBMD(MOLMAX) 

LOGICAL 

Molecular  data  base  record  lengths 
MODTRAN  band  parameter  data  base 
record  length 

Global  data  base  record  length 
Scene  data  base  record  length 
Number  of  records  for  molecular 
data  bases 

Number  of  records  for  MODTRAN 
band  parameter  data  base 
Number  of  records  for  global 
data  base 

Number  of  records  for  scene 
data  base 

Flag  for  existence  of  separate 
molecular  data  base  file 
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EXTMOL 


This  COMMON  block  contains  the  trace  gas  altitude  profiles. 


Common  Block  EXTMOL  used  in: 


EQABS 

EXMLBD  USRDEF 

Variable  Name 

Typ.e 

Descriotion 

BMOL(NL,38) 

REAL 

Trace  gas  concentration  profiles 

(ppmv) 
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FLAGS 


This  COMMON  block  contains  various  flags  to  control  certain 
calculations. 


Common  Block  FLAGS  used  in: 


ATMPRN 

BCKCHK  BCKPRN 

BINFIL  CALCUL  EPHEMS 

EQABS 

HAZE  INITL 

ISRAEL  MOSART  PRCALC 

PUTSLR 

RSHINE  SCNRIO 

SETFLG  SRCIRR  SUMFIL 

TERMPR 

BBTEMP  MRFLTR 

VISUAL 

Variable  Name 

Type 

Descriotion 

FLSLR 

LOGICAL 

Solar  calculation  flag 

FLLNR 

LOGICAL 

Lunar  calculation  flag 

FLEPH 

LOGICAL 

Ephemeris  calculation  flag 

FLSMP 

LOGICAL 

Solar  simple  calculation  flag 

FLSML 

LOGICAL 

Lunar  simple  calculation  flag 

FLVSA 

LOGICAL 

Vertical  structure  algorithm 
calculation  flag 

FLATM 

LOGICAL 

Atmospheric  file  existence  flag 

FLBCK 

LOGICAL 

Background  file  existence  flag 

FLFBA 

LOGICAL 

Fore/background  flag 

FLSRC(NGMAX) 

LOGICAL 

Source  geometry  flag 

FLCNT(NGMAX) 

LOGICAL 

Combined  (contrast)  geometry  flag 

FLASR(NGMAX) 

LOGICAL 

At-source  geometry  flag 

FLHOR(NGMAX) 

LOGICAL 

Horizontal  path  geometry  flag 

FLIMB(NGMAX)  LOGICAL  Earthlimb  geometry  flag 

FLMSC 

LOGICAL 

Multiple  scattering  flag 
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FLTRDT 


This  COMMON  block  contains  the  filter  response  parameters. 

Common  Block  FLTRDT  used  in: 

FILTER  MOSART  RDFLTR  BBTEMP  MRFLTR 

Variable  Name  Type  Description 

NFLTR  INTEGER  Number  of  spectral  points  in  filter 

response  function 

WLF(1200)  REAL  Wavelength  (pm) 

FLTR(1200)  REAL  Spectral  filter  response  function 
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FLXTAB 


This  COMMON  block  contains  various  parameters  for  the  broad  band 
heat  flux  taken  from  Staley  and  Jurica. 


Common  Block  FLXTAB  used  in: 
BRBNBD  TRANLW 


Variable  Name 

Type 

UTAB(21 ,4) 

REAL 

VTAB(23,4) 

REAL 

WTAB(16,4) 

REAL 

OPR(23,3) 

REAL 

TR(4) 

REAL 

IR(3) 

INTEGER 

Description 

Unknown  parameter  for  water  vapor 
Unknown  parameter  for  carbon  dioxide 
Unknown  parameter  for  ozone 
Unknown  parameter 
Unknown  parameter 
Unknown  parameter 
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GAUSSL 


This  COMMON  block  contains  the  Gauss-Legendre  coefficients. 

Common  Block  GAUSSL  used  in: 

GETGLC  GLCFBD 

Variable  Name  Type  Description 


XMU2(1) 

DOUBLE 

PRECISION 

WT2(1) 

DOUBLE 

PRECISION 

XMU3(2) 

DOUBLE 

PRECISION 

WT3(2) 

DOUBLE 

PRECISION 

XMU4(2) 

DOUBLE 

PRECISION 

WT4(2) 

DOUBLE 

PRECISION 

XMU5(3) 

DOUBLE 

PRECISION 

WT5(3) 

DOUBLE 

PRECISION 

XMU6(3) 

DOUBLE 

PRECISION 

WT6(3) 

DOUBLE 

PRECISION 

XMU7(4) 

DOUBLE 

PRECISION 

WT7(4) 

DOUBLE 

PRECISION 

XMU8(4) 

DOUBLE 

PRECISION 

WT8(4) 

DOUBLE 

PRECISION 

XMU9(5) 

DOUBLE 

PRECISION 

WT9(5) 

DOUBLE 

PRECISION 

XMU10(5) 

DOUBLE 

PRECISION 

WT10(5) 

DOUBLE 

PRECISION 

XMU12(6) 

DOUBLE 

PRECISION 

WT12(6) 

DOUBLE 

PRECISION 

XMU16(8) 

DOUBLE 

PRECISION 

WT16(8) 

DOUBLE 

PRECISION 

XMU24(12) 

DOUBLE 

PRECISION 

WT24(12) 

DOUBLE 

PRECISION 

XMU32(16) 

DOUBLE 

PRECISION 

WT32(16) 

DOUBLE 

PRECISION 

XMU40(20) 

DOUBLE 

PRECISION 

WT40(20) 

DOUBLE 

PRECISION 

XMU80(40) 

DOUBLE 

PRECISION 

WT80(40) 

DOUBLE 

PRECISION 

2-point  Gauss-Legendre  abscissa 

2- point  Gauss-Legendre  weights 

3- point  Gauss-Legendre  abscissa 

3- point  Gauss-Legendre  weights 

4- point  Gauss-Legendre  abscissa 

4- point  Gauss-Legendre  weights 

5- point  Gauss-Legendre  abscissa 

5- point  Gauss-Legendre  weights 

6- point  Gauss-Legendre  abscissa 

6- point  Gauss-Legendre  weights 

7- point  Gauss-Legendre  abscissa 

7- point  Gauss-Legendre  weights 

8- point  Gauss-Legendre  abscissa 

8- point  Gauss-Legendre  weights 

9- point  Gauss-Legendre  abscissa 

9- point  Gauss-Legendre  weights 

10- point  Gauss-Legendre  abscissa 

10-point  Gauss-Legendre  weights 
12-point  Gauss-Legendre  abscissa 
12-point  Gauss-Legendre  weights 
16-point  Gauss-Legendre  abscissa 
16-point  Gauss-Legendre  weights 
24-point  Gauss-Legendre  abscissa 
24-point  Gauss-Legendre  weights 
32-point  Gauss-Legendre  abscissa 
32-point  Gauss-Legendre  weights 
40-point  Gauss-Legendre  abscissa 
40-point  Gauss-Legendre  weights 
80-point  Gauss-Legendre  abscissa 
80-point  Gauss-Legendre  weights 
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GAUSSL  (continued) 


XMU1 28(64) 
WT1 28(64) 
XMU51 2(256) 
WT51 2(256) 
NPTS(17) 
MPTS(17) 


DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
INTEGER 
INTEGER 


128-point  Gauss-Legendre  abscissa 
128-point  Gauss-Legendre  weights 
512-point  Gauss-Legendre  abscissa 
512-point  Gauss-Legendre  weights 
Number  of  points  in  quadrature 
Number  of  points  in  arrays 
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H20PAR 


This  COMMON  block  contains  the  LOWTRAN  band  parameters  of 
water  vapor. 

Common  Block  H20PAR  used  in: 

CH20BD  LOWTRN 

Variable  Name  Type  Description 

CPH20(3515)  REAL  LOWTRAN  band  model  parameters 

for  water  vapor 
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HEADER 


This  COMMON  block  contains  the  variables  which  form  the  main  header  of  the 
output  binary  files. 


Common  Block  HEADER  used  in: 

ATMPRN  BCKGND  BCKPRN 

BNDPAR 

BRBNDR 

CALCUL 

COUPLE 

DEFALT 

DEFBCK 

ENDPT 

EQABS 

EQUABS 

GETASP 

GETATM 

GETBCK 

GETCLD 

INICPL 

INIGEO 

INITL 

KDISTR 

MOSART 

PRCALC 

PRTHDR 

PTHOSB 

PUTCLD 

PUTHDR 

PUTSLR 

RSHINE 

SCNRIO 

SETBCK 

SRCFLX 

SRCIRR 

SUMFIL 

TANGPT 

USRDEF 

ZROHDR 

BBTEMP 

GETHDR 

PUTCLD 

PUTSLR 

SUMFIL 

GETHDR 

TABLEA 

TABLES 

TABLEH 

VISUAL 

PLTDRV 

PLTGEN 

RDMSRT 

ATMOUT 

MRFLTR 

Variable  Name 

lype 

NGEOM 

INTEGER 

NVSET 

INTEGER 

NV(NVSMAX) 

INTEGER 

FILE 

INTEGER 

NLAT 

INTEGER 

NLON 

INTEGER 

MA(MAXLAT, 

MAXLON) 

INTEGER 

MP(MAXLAT, 

MAXLON) 

INTEGER 

MT(MAXLAT, 

MAXLON) 

INTEGER 

MC(ISMX,MAXLAT, 

MAXLON) 

INTEGER 

IAER01(MAXLAT, 

MAXLON) 

INTEGER 

IAER02 

INTEGER 

IHAZE 

INTEGER 

lUPPER 

INTEGER 

ICSTL(MAXLAT, 

MAXLON) 

INTEGER 

Description 

Number  of  geometries 
Number  of  spectral  sets 
Number  of  spectral  points/set 
Binary  file  index 
Number  of  latitudes 
Number  of  longitudes 

Model  atmosphere  index 

Model  pressure  index 

Model  temperature  index 

Model  molecular  concentrations 
index 

Boundary  layer  aerosol  index 
Stratospheric  aerosol  index 
Haze  profile  index 
Upper  atmosphere  haze  index 

Air  mass  character  index 
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HEADER  (continued) 


IVSA 

INTEGER 

ISEASN 

INTEGER 

lEPHEM 

INTEGER 

ISOLAR 

INTEGER 

ISMPLS 

INTEGER 

ILUNAR 

INTEGER 

ISMPLL 

INTEGER 

IDAY 

INTEGER 

IMONTH 

INTEGER 

lYEAR 

INTEGER 

ITIME 

INTEGER 

ICLDRN 

INTEGER 

ICLOUD 

INTEGER 

ICIRUS 

INTEGER 

MCE 

INTEGER 

IRAIN 

INTEGER 

ISNOW 

INTEGER 

IBKGD 

INTEGER 

NAZ(NGMAX) 

INTEGER 

MAZ 

INTEGER 

NASPCT  (NGMAX) 

INTEGER 

lAZSH 

INTEGER 

NAZSH 

INTEGER 

ITERM(NGMAX) 

INTEGER 

JTERM(NGMAX, 

NAZMAX) 

INTEGER 

KTERM(NASMAX, 

NZSMAX, NGMAX) 

INTEGER 

IDV(NVSMAX) 

INTEGER 

ICOREF 

INTEGER 

Vertical  structure  algorithm  index 
Season  index 
Ephemeris  index 
Solar  switch 

Simple/complex  solar  calculation 
switch 
Lunar  switch 

Simple/complex  lunar  calculation 
switch 

Day  of  the  month 
Month  of  the  year 
Year 

Time  index 

Cloud/fog/rain/snow  index 

Cloud  index 

Cirrus  index 

Ice  index 

Rain  index 

Snow  index 

Background  index 

Number  of  observer-source  azimuths 
Temporary  storage  for  NAZ(NGMAX) 
Number  of  earth/skyshine 
elevation  angles 
Earth/skyshine  index 
Number  of  earth/skyshine 
azimuth  angles 

Observer-source  path  background 
index 

Observer-source  path  background 
index  for  each  azimuth 

Earth/skyshine  path  background 
index 

Spectral  calculation  index 
Coordinate  reference  switch 


382 


HEADER  (continued) 


♦ 


IHTBLC 

INTEGER 

ISPCAL 

INTEGER 

IMLSCT 

INTEGER 

IFBSW 

INTEGER 

lAZREF 

INTEGER 

ISLANG 

INTEGER 

lANGSW(NGMAX) 

INTEGER 

IGMSW(NGMAX) 

INTEGER 

ITPGM(NGMAX) 

INTEGER 

IPAND(10) 

INTEGER 

VIS(MAXLAT, 

MAXLON) 

REAL 

HOBS(NGMAX) 

REAL 

PHIOBS(NGMAX) 

REAL 

HSRC(NGMAX) 

REAL 

PHISRC(NGMAX) 

REAL 

HBCK 

REAL 

PHIBCK(NGMAX) 

REAL 

SLROS(NGMAX) 

REAL 

BETAOS(NGMAX) 

REAL 

SLROB(NGMAX) 

REAL 

BETAOB(NGMAX) 

REAL 

HTANG(NGMAX) 

REAL 

SOLEV 

REAL 

SOLAZ 

REAL 

SOLDIS 

REAL 

XLUNEV 

REAL 

XLUNAZ 

REAL 

PHLUNR 

REAL 

XLNDIS 

REAL 

AZIM(NAZMAX) 

REAL 

AZIML(NGMAX)  REAL 

HOUR 

REAL 

Background  temperature  switch 
Spectral  calculation  index 
Multiple  scattering  switch 
Fore/background  switch 
Azimuth  reference  switch 
Elevation/zenith  angle  switch 
Angle  switch 
Geometry  switch 
Geometry  type  index 
Expansion  positions  for  growth 


Sea  level  meteorological  range  (km) 
Observer  altitude  (km) 

Observer  elevation  angle  (deg) 
Source  altitude  (km) 

Source  elevation  angle  (deg) 
Background  altitude  (km) 
Background  elevation  angle  (deg) 
Observer-source  slant  range  (km) 
Observer-source  earth  center  angle 
(deg) 

Observer-background  slant  range 
(km) 

Observer-background  earth  center 
angle  (deg) 

Tangent  altitude  (km) 

Solar  elevation  (deg) 

Solar  azimuth  (deg) 

Normalized  solar  distance 
Lunar  elevation  (deg) 

Lunar  azimuth  (deg) 

Lunar  phase  (deg) 

Normalized  lunar  distance 
Observer/source  azimuth  (deg) 
Azimuth  if  other  latitude  and 

longitude  are  defined  (deg) 
Solar  time  (LST)  (hour) 
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HEADER  (continued) 


PHISH(NASMAX, 

NGMAX) 

TAIR(MAXLAT, 

REAL 

Earth/skyshine  elevation  angles  (deg) 

MAXLON) 

REAL 

Surface  air  temperature  (K) 

V1(NVSMAX) 

REAL 

Initial  wavenumber  (cm‘^) 

V2(NVSMAX) 

REAL 

Final  wavenumber  (cm'^) 

DVI(NVSMAX) 

REAL 

Calculation  increment  (cm'^) 

DWL(NVSMAX) 

PSRC(NGMAX, 

REAL 

Calculation  increment  (pm) 

NAZMAX) 

TSRC(NGMAX, 

REAL 

Source  pressure  (mb) 

NAZMAX) 

CSRC(7, NGMAX, 

REAL 

Source  temperature  (K) 

NAZMAX) 

REAL 

Source  molecular  concentrations 
(ppmv) 

HCIRBS 

REAL 

Cirrus  base  altitude  (km) 

DELCIR 

REAL 

Cirrus  thickness  (km) 

ZINVSA 

REAL 

Inversion  altitude  (km) 

WHH 

WIND(MAXLAT, 

REAL 

24-hour  mean  wind  speed  (m/sec) 

MAXLON) 

REAL 

Local  wind  speed  (m/sec) 

WINDHI 

REAL 

Average  stratospheric  wind  speed 
(m/sec) 

XLAT(2, NGMAX) 

REAL 

Latitude  of  observer  and  source 
(deg) 

XLONG(2, NGMAX) 

REAL 

Longitude  of  observer  and  source 
(deg) 

TIME 

TINF(MAXLAT, 

REAL 

Time  of  the  day 

MAXLON) 

REAL 

Exospheric  temperature 

AZSH(NZSMAX) 

CLDCVR(0:3, 

REAL 

Earth/skyshine  azimuths  (deg) 

MAXLAT, MAXLON) 

REAL 

Total/low/mid/high  cloud  cover  (%) 

HPRF(2) 

REAL 

Initial  and  final  altitudes  for  profile 
(km) 

* 
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HEADER  (continued) 


APERT 

REAL 

Observer  aperture  diameter  (m) 

FOR 

REAL 

Observer  field  of  regard  (mrad) 

CIREXT 

REAL 

Cirrus  extinction  coefficient  at 

CIRICE 

REAL 

0.55  pm  (km'^) 

Cirrus  ice  content  (gm/m^) 

ULWSRC(NAZMAX, 

NGMAX) 

REAL 

Upward  long-wave  flux  at  source 

DLWSRC(NAZMAX, 

NGMAX) 

REAL 

(W/m^) 

Downward  long-wave  flux  at  source 

USWSRC(NAZMAX, 

NGMAX) 

REAL 

(W/m^) 

Upward  short-wave  flux  at  source 

DSWSRC(NAZMAX, 

NGMAX) 

REAL 

(W/m^) 

Downward  short-wave  flux  at  source 

BSWSRC(NAZMAX, 

NGMAX) 

REAL 

(W/m^) 

Beam  short-wave  flux  at  source 

CLALTB(3,MAXLAT, 

MAXLON) 

REAL 

(W/m^) 

Low/mid/high  etage  cloud  base 

CLALTT(3,MAXLAT, 

MAXLON) 

REAL 

altitude  (km) 

Low/mid/high  etage  cloud  top 

CN2SRF 

REAL 

altitude  (km) 

Structure  constant  at  surface  (m'^®) 

XLATSL 

REAL 

Solar  latitude  (deg) 

XLONSL 

REAL 

Solar  longitude  (deg) 

XLATLN 

REAL 

Lunar  latitude  (deg) 

XLONLN 

REAL 

Lunar  longitude  (deg) 

XPAND(10) 

REAL 

Expansion  positions  for  growth 
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HERZBG 


This  COMMON  block  contains  the  parameters  for  the  Herzberg  absorption 
bands  of  molecular  oxygen  in  the  ultraviolet. 


Common  Block  HERZBG  used  in: 


ABS02 

02UVBD 

Variable  Name 

lyp.e 

Description 

NWLOXY 

INTEGER 

Number  of  spectral  points 

WLOXY(248) 

REAL 

Wavelength  (pm) 

SDOXY(248) 

REAL 

Absorption  coefficient  (km’’) 

AOXY(248) 

REAL 

Pressure  correction  term 

(1.E-26  cm^  torr^) 
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HZDATA 


This  COMMON  block  contains  the  parameters  for  the  model  haze 
profiles. 

Common  Block  HZDATA  used  in: 

HAZE  HAZEBD 


Variable  Name 

Type 

Descriotion 

VS(5) 

REAL 

Sea  level  meteorological  ranges  (km) 

ZBNDR(NZBNDR) 

REAL 

Boundary  layer  altitudes  (km) 

HZBNDR(NZBNDR,5) 

REAL 

Boundary  layer  haze  extinction 
coefficients  (km  ’) 

ZTROP(NZTROP) 

HZTROP(NZTROP, 

REAL 

Troposphere  altitudes  (km) 

2,2) 

REAL 

Troposphere  haze  extinction  coefficients 
(km  ’)  with  seasonal  variability 
for  meteorological  ranges  for 

23  and  50  km 

ZSTRA(NZSTRA) 

HZSTRA(NZSTRA, 

REAL 

Stratosphere  altitudes  (km) 

2,4) 

REAL 

Stratosphere  haze  extinction  coefficients 
(km"’)  with  season  variability  as  a 
function  of  volcanic  activity  (i.e., 
background,  moderate,  high,  and 
extreme) 

ZUPPR(NZUPR) 

REAL 

Upper  atmosphere  altitudes  (km) 

HZUPPR(NZUPR,2,2) 

REAL 

Upper  atmosphere  haze  extinction 

coefficients  (km  ’)  with  variations 
due  to  volcanic  activity  (i.e., 
background  and  volcanic)  and  upper 
atmosphere  haze  level  (i.e.,  normal 
and  extreme) 
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ICEREF 


This  COMMON  block  contains  the  index  of  refraction  of  ice. 

Common  Block  ICEREF  used  in: 

ICEBD  INDEXI 


Variable  Name 

Type 

NWLICE 

WLICE(468) 

XMRE(468) 

INTEGER 

REAL 

REAL 

XM1M(468) 

REAL 

NWLJ 

WLJ(62) 

YMRE(62,4) 

INTEGER 

REAL 

REAL 

YMIM(62,4) 

REAL 

TEMICE(4) 

REAL 

Description 

Number  of  spectral  points  for  WLICE 
Wavelength  (pm) 

Real  component  of  the  index  of 
refraction 

Imaginary  component  of  the  index 
of  refraction 

Number  of  spectral  points  for  WLJ 
Wavelength  (pm) 

Temperature-dependent  real  component 
of  the  index  of  refraction 
Temperature-dependent  imaginary 
component  of  the  index  of 
refraction 
Temperature  (K) 


¥ 
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INBKGD 


This  COMMON  block  contains  the  sample  user-defined  background 
input  file. 


Common  Block  INBKGD  used  in: 

CRBKGD 

INBKBD 

Variable  Name 

Type 

Descriotion 

INPBCK(39) 

CHARACTER*60 

User-defined  background  records 

INPSCN(80) 

CHARACTER*80 

User-defined  scene  records 
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INDXWR 


This  COMMON  block  contains  the  index  of  refraction  of  water. 

Common  Block  INDXWR  used  in: 

INDEXW  WTRBD 


Variable  Name 

Type 

Descriotion 

WLWTR(NWLWTR) 

REAL 

Wavelength  (pm) 

WTRINR(NWLWTR) 

REAL 

Real  component  of  the  index  of 
refraction 

WTRINI(NWLWTR) 

REAL 

Imaginary  component  of  the  index 
of  refraction 

FRGHZ(NFRQ) 

REAL 

Frequency  (GHz) 

WTDER(NFRQ) 

REAL 

Real  component  of  the  microwave 
index  of  refraction 

WTDEI(NFRQ) 

REAL 

Imaginary  component  of  the  microwave 
index  of  refraction 
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INFLTR 


This  COMMON  block  contains  the  sample  user-defined  filter  response 
input  file. 

Common  Block  INFLTR  used  in: 

CRFLTR  INFLBD  RDFLTR 

Variable  Name  Type  Description 

INPFLT(57)  CHARACTER*56  Filter  response  records 
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INITAL 


This  COMMON  block  contains  the  final  atmospheric  parameter  arrays. 
Common  Block  INITAL  used  in: 


BBARSL 

BMOD 

BNDPAR 

BRBNDR 

CALCUL 

COUPLE 

ENDPT 

EPHEMS 

EQUABS 

GEOM 

HYDROM 

INICPL 

INIGEO 

INITL 

LOWTRN 

M OS ART 

PLMSUB 

PRCALC 

PRETEM 

PTHOSB 

PUTHDR 

RAYPTH 

RSHINE 

SCNRIO 

SETALT 

SHNGEO 

SRCGEO 

SRCIRR 

TANGPT 

MRFLTR 

Variable  Name 

Type 

Description 

RE 

DOUBLE  PRECISION 

Radius  of  the  earth  (km) 

ML 

INTEGER 

Number  of  altitudes  in  final 

ZL(MLMAX) 

REAL 

atmospheric  profile 
Altitude  (km) 

PL(MLMAX,MAXLAT, 

MAXLON) 

REAL 

Pressure  (mb) 

TL(MLMAX,MAXLAT, 

MAXLON) 

REAL 

Temperature  (K) 

W(ISMX,MLMAX, 
MAXLAT,  MAXLON) 

REAL 

Equivalent  absorber  amounts 

IAERO(MLMAX, 
MAXLAT,  MAXLON) 

INTEGER 

for  each  molecular 
type  (amagat) 

Aerosol  model  index 

LOBSV(NGMAX) 

INTEGER 

Position  of  observer  in  altitude 

LSRCE(NGMAX) 

INTEGER 

profile 

Position  of  source  in  altitude 

LBKGD 

INTEGER 

profile 

Position  of  background  in 

DTDP(MLMAX, 
MAXLAT,  MAXLON) 

REAL 

altitude  profile 

d(Theta)/d(Phi)  calculated 

XMH(MLMAX, 
MAXLAT,  MAXLON) 

REAL 

from  refractive  index 
profile 

Refractive  bending  constant 
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INITAL  (continued) 


CN2(MLMAX, 


MAXLAT.MAXLON) 

RHL(MLMAX, 

REAL 

Turbulence  structure  constant 

MAXLAT.MAXLON) 

PRTNFN(ISMX, 

MLMAX.MAXLAT, 

REAL 

Relative  humidity 

MAXLON) 

CLDLWC(MLMAX, 

REAL 

Molecular  partition  functions 

MAXLAT,  MAXLON) 

CLDICE(MLMAX, 

REAL 

Cloud  liquid  water  content 
(gm/m®) 

MAXLAT,  MAXLON) 
RRATE(MLMAX, 

REAL 

Cloud  ice  content  (gm/m®) 

MAXLAT,  MAXLON) 
SRATE(MLMAX, 

REAL 

Rain  rate  (mm/hr) 

MAXLAT,  MAXLON) 
NTRPAU(MAXLAT, 

REAL 

Snow  rate  (mm/hr) 

MAXLON) 

NSTPAU{MAXLAT, 

INTEGER 

Position  of  tropopause  in 
altitude  profile 

MAXLON) 

INTEGER 

Position  of  stratopause  in 
altitude  profile 

MLO 

INTEGER 

Initial  number  of  altitudes  in 
atmosphere  profile, 
before  any  tangent 
points  are  added 

LMIN(MLMAX) 

INTEGER 

Pointer  to  altitude  of  tangent 
points 

LSOLAR 

INTEGER 

Position  of  sun  in  altitude 
profile 

LLUNAR 

CT2(MLMAX, 

INTEGER 

Position  of  moon  in  altitude 
profile 

MAXLAT,  MAXLON) 

REAL 

Temperature  structure 
constant  (m‘^®  K^) 
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INITAL  (continued) 


CSM2(MLMAX, 
MAXLAT,MAXLON)  REAL 

CSA2(MLMAX, 
MAXLAT,MAXLON)  REAL 

SKYFAC(3,MLMAX, 
MAXLAT.MAXLON)  REAL 


Molecular  scattering  structure 
constant  km'^) 

Aerosol  scattering  structure 
constant  (m'^^  km'^) 

Sky  noise  factor 


♦ 
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INPNDX 


This  COMMON  block  contains  the  indices  for  the  sub-sections  for  the 
MOSART  input  file. 

Common  Block  INPNDX  used  in: 

CRINPT  CRUATM  INPTBD  RDMDTN 

Variable  Name  Type  Description 

INPDX(18)  INTEGER  Indices  for  MOSART  input  file 

sub-sections 
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INPTDT 


This  COMMON  block  contains  the  sample  input  file. 


Common  Block  INPTDT  used  in: 

INITL  INPTBD  CRINPT  CRUATM  INPTBD  RDMDTN 


Variable  Name  Type 


Description 


INPSTR(202) 

TITL 

GEOMST(3) 

ANTEST(8) 

SUBTIT(17) 

ATMPAR(19) 


CHARACTER*50 

CHARACTER*80 

CHARACTER*80 

CHARACTER*80 

CHARACTER*50 

CHARACTER*80 


Input  file  records 
Input  file  title 

Sample  geometry  records 
Antecedent  parameter  records 
Subsection  headings 
User-defined  atmosphere  records 
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INTSTO 


This  COMMON  block  contains  intermediate  spectral  data  the 
integrated  in-band  values. 

Common  Block  INTSTO  used  in: 

ATMPRN  INTEG  PRCALC  RSHINE  ZROINT  ATMINT 


Variable  Name 

RADSH(NASMAX, 

Type 

Descriotion 

NZSMAX) 

TAUSH(NASMAX, 

REAL 

Spectral  earth/skyshine  thermal  radiance 
(W/cm^/sr/cm'^) 

NZSMAX) 

RADSE(NASMAX, 

REAL 

Spectral  skyshine  transmittance 

NZSMAX) 

RADSS(NASMAX, 

REAL 

Spectral  earth/skyshine  terminator  emitted 
radiance  (W/cm^/sr/cm’"') 

NZSMAX) 

RADSHT(NASMAX, 

REAL 

Spectral  earth/skyshine  terminator 

reflected  radiance  (W/cm^/sr/cm’^) 

NZSMAX, NGMAX) 

TAUSHT(NASMAX, 

REAL 

Integrated  Earth/Skyshine  Thermal  Radiance 
(W/cmVsr) 

NZSMAX, NGMAX) 
RADSET(NASMAX, 

REAL 

Integrated  earth/skyshine  transmittance 

NZSMAX,NGMAX) 

RADSST(NASMAX, 

REAL 

Integrated  earth/skyshine  terminator 
emitted  radiance  (W/cm7sr) 

NZSMAX,NGMAX) 

RADSC(NASMAX, 

REAL 

Integrated  earth/skyshine  terminator 
reflected  radiance  (W/cm^/sr) 

NZSMAX) 

RADSCT(NASMAX, 

REAL 

Spectral  earth/skyshine  scattered  radiance 
(W/cmVsr/cm'^) 

NZSMAX,NGMAX) 

RSLSTT(NAZMAX, 

REAL 

Integrated  earth/skyshine  scattered 
radiance  (W/cm^/sr) 

NGMAX) 

REAL 

Integrated  scattered  observer-source 
line-of-sight  radiance  (W/cm^/sr) 
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INTSTO  (continued) 


RSLSBT(NAZMAX, 

NGMAX) 

REAL 

Integrated  scattered  observer-background 
line-of-sight  radiance  (W/cm^sr) 

RADBE(NAZMAX) 

RADBET(NAZMAX, 

REAL 

Spectral  emitted  observer  line-of-sight 

terminator  radiance  (W/cmVsr/cm'^) 

NGMAX) 

REAL 

Integrated  emitted  observer  line-of-sight 
terminator  radiance  (W/cm^/sr) 

RADBR(NAZMAX) 

RADBRT(NAZMAX, 

REAL 

Spectral  reflected  observer  line-of-sight 
terminator  radiance  (W/cmVsr/cm'^) 

NGMAX) 

REAL 

Integrated  reflected  observer  line-of-sight 
terminator  radiance  (W/cmVsr) 

RADSD(NAZMAX) 

RADSDT(NAZMAX, 

REAL 

Spectral  terminator  radiance  standard 
deviation  (W/cmVsr/cm'^) 

NGMAX) 

TAU1(NAZMAX, 

REAL 

Integrated  terminator  radiance  standard 
deviation  (W/cmVsr) 

NGMAX) 

TAU2(NAZMAX, 

REAL 

Spectral  observer-source  transmittance 

NGMAX) 

SGMETT(NAZMAX, 

REAL 

Spectral  observer-background 
transmittance 

NGMAX) 

SGMEBT(NAZMAX, 

REAL 

Integrated  source  scintillation 

NGMAX) 

TASCTT(NAZMAX, 

REAL 

Integrated  background  scintillation 

NGMAX) 

TASCBT(NAZMAX, 

REAL 

Integrated  forward  in-scatter 
transmittance  to  source 

NGMAX) 

RAD1(NAZMAX, 

REAL 

Integrated  forward  in-scatter 

transmittance  to  background 

NGMAX) 

REAL 

Integrated  thermal  path  radiance 
observer-source  line-of-sight 

(W/cmVsr) 
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INTSTO  (continued) 


RAD2(NAZMAX, 

NGMAX) 

REAL 

Integrated  thermal  path  radiance 

RDSLT(NAZMAX. 

NGMAX) 

REAL 

observer-background  line-of-sight 
(W/cm^/sr) 

Integrated  source  solar  irradiance  (W/cm^) 

RDLNT(NAZMAX, 

NGMAX) 

REAL 

Integrated  source  lunar  irradiance  (W/cm^) 

DRADTT(NAZMAX, 

NGMAX) 

REAL 

Integrated  path  standard  deviation 

DRADBT(NAZMAX, 

NGMAX) 

REAL 

observer-source  line-of-sight 
(W/cmVsr) 

Integrated  path  standard  deviation 

BCKSUM(2,NMATL, 
NAZMAX, NGMAX) 

REAL 

observer-background  line-of-sight 
(W/cm%r) 

Integrated  terrain  material  radiances  in  sun 

and  shade  (W/cmVsr) 
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INUAER 


This  COMMON  block  contains  the  sample  user-defined  aerosol 
input  file. 


Common  Block  INUAER  used  in: 

CRUAER  INARBD 

Variable  Name 

lyee 

Descriotion 

INPAER(32) 

CHARACTER*60 

Aerosol  file  records 
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INUCLD 


This  COMMON  block  contains  the  sample  user-defined  hydrometeor 
input  file. 


Common  Block  INUCLD  used  in; 

CRUCLD 

INCLBD 

Variable  Name 

Typ.e 

Descriotion 

INPCLD(30) 

CHARACTER*80 

User-defined  hydrometeor  file  records 

4 
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KDISDT 


This  COMMON  block  contains  the  parameters  for  the  exponential 
sum  fit  used  in  the  multiple  scattering  calculations. 


Common  Block  KDISDT  used  in: 


KDISTR  PRCALC 

Variable  Name 

Type 

Descriotion 

EXTNCA(MLMAX, 

MAXLAT,MAXLON) 

REAL 

Extinction  coefficient  (km"') 

ALBA(MLMAX, 

MAXLAT.MAXLON) 

REAL 

Aerosol  albedo 

ALBM(MLMAX, 

MAXLAT.MAXLON) 

REAL 

Molecular  albedo 
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LAGUER 


This  COMMON  block  contains  Gauss-Laguerre  coefficients. 

Common  Block  LAGUER  used  in; 

ESFIT  LAGRBD 


Variable  Name 

Typ_e 

XLGA(2) 

WLGA(2) 

WLGEXA(2) 

DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 

XLGB(3) 

WLGB(3) 

WLGEXB(3) 

DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 

XLGC(4) 

WLGC(4) 

WLGEXC(4) 

DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 

XLGD(5) 

WLGD(5) 

WLGEXD(5) 

DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 

XLGE(6) 

WLGE(6) 

WLGEXE(6) 

DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 

XLGF(7) 

WLGF(7) 

WLGEXF(7) 

DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 

XLGG(8) 

WLGG(8) 

WLGEXG(8) 

DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 

XLGH(9) 

WLGH(9) 

WLGEXH(9) 

DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 

Description 

2-point  Gauss-Laguerre  abscissa 

2-point  Gauss-Laguerre  weights 

2- point  Gauss-Laguerre  weights 

time  EXP(-XLG2) 

3- point  Gauss-Laguerre  abscissa 

3-point  Gauss-Laguerre  weights 

3- point  Gauss-Laguerre  weights 

time  EXP(-XLG3) 

4- point  Gauss-Laguerre  abscissa 

4-point  Gauss-Laguerre  weights 

4- point  Gauss-Laguerre  weights 

time  EXP(-XLG4) 

5- point  Gauss-Laguerre  abscissa 

5-point  Gauss-Laguerre  weights 

5- point  Gauss-Laguerre  weights 

time  EXP(-XLG5) 

6- point  Gauss-Laguerre  abscissa 

6-point  Gauss-Laguerre  weights 

6- point  Gauss-Laguerre  weights 

time  EXP(-XLG6) 

7- point  Gauss-Laguerre  abscissa 

7-point  Gauss-Laguerre  weights 

7- point  Gauss-Laguerre  weights 

time  EXP(-XLG7) 

8- point  Gauss-Laguerre  abscissa 

8-point  Gauss-Laguerre  weights 

8- point  Gauss-Laguerre  weights 

time  EXP(-XLG8) 

9- point  Gauss-Laguerre  abscissa 

9-point  Gauss-Laguerre  weights 

9-point  Gauss-Laguerre  weights 

time  EXP(-XLG9) 
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LAGUER  (continued) 


XLGl(IO) 

DOUBLE  PRECISION 

WLGI(IO) 

WLGEXI(IO) 

DOUBLE  PRECISION 
DOUBLE  PRECISION 

XLGJ(12) 

DOUBLE  PRECISION 

WLGJ(12) 

WLGEXJ(12) 

DOUBLE  PRECISION 
DOUBLE  PRECISION 

XLGK(15) 

DOUBLE  PRECISION 

WLGK(15) 

WLGEXK(15) 

DOUBLE  PRECISION 
DOUBLE  PRECISION 

10-point  Gauss-Laguerre 
abscissa 

1 0-point  Gauss-Laguerre  weights 
1 0-point  Gauss-Laguerre  weights 
time  EXP(-XLGIO) 
12-point  Gauss-Laguerre 
abscissa 

12-point  Gauss-Laguerre  weights 
1 2-point  Gauss-Laguerre  weights 
time  EXP(-XLG12) 
15-point  Gauss-Laguerre 
abscissa 

15-point  Gauss-Laguerre  weights 
1 5-point  Gauss-Laguerre  weights 
time  EXP(-XLG15) 
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LYRSTO 


This  COMMON  block  contains  the  irradiance  parameters  for  each  layer  in  the 
atmospheric  profile. 

Common  Block  LYRSTO  used  in: 

COUPLE  INICPL  MLSCAT  PRCALC  PTHOSB  RSHINE 
SCNRIO 


Variable  Name 

Typ_e 

Descriotion 

PLNK(MLMAX, 

MAXLAT.MAXLON) 

REAL 

Blackbody  spectral  radiance  for  layer 

SOLYR(MLMAX, 

MAXLAT.MAXLON) 

REAL 

temperature  (W/cm%r/cm'^) 

Solar  spectral  irradiance  (W/cm^/cm'^) 

XLNLYR(MLMAX, 

MAXLAT.MAXLON) 

REAL 

Lunar  spectral  irradiance  (W/cm^/cm'^) 

USOLAR(MLMAX, 

NBAND,MAXLAT, 

MAXLON) 

REAL 

Upward  diffuse  reflection  term  for 

DSOLAR(MLMAX, 

NBAND.MAXLAT, 

MAXLON) 

REAL 

sun  per  exponential  fit  band 

Downward  diffuse  reflection  term  for 

ULUNAR(MLMAX, 

NBAND,MAXLAT, 

MAXLON) 

REAL 

sun  per  exponential  fit  band 

Upward  diffuse  reflection  term  for 

DLUNAR(MLMAX, 

NBAND.MAXLAT, 

MAXLON) 

REAL 

moon  per  exponential  fit  band 

Downward  diffuse  reflection  term  for 

RLAYER(0:MLMAX+1, 

NBAND.MAXLAT, 

MAXLON) 

REAL 

moon  per  exponential  fit  band 

Layer  reflectance 

TLAYER(0:MLMAX+1, 

NBAND.MAXLAT, 

MAXLON) 

REAL 

Layer  transmittance 
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LYRSTO  (continued) 


HMI(0:MLMAX+1, 

NBAND)  REAL 

HPI(0:MLMAX+1, 

NBAND)  REAL 

SOLEVL(MLMAX)  REAL 

XLNEVL(MLMAX)  REAL 

HP(2,MLMAX, 
MAXLAT,MAXLON 
NSPCMX)  REAL 

HM(2,MLMAX, 
MAXLAT.MAXLON, 
NSPCMX)  REAL 

DPLKDT(MLMAX, 
MAXLAT,MAXLON 
NSPCMX)  REAL 


Multiple  scattered  downward  flux 

(thermal/solar)  for  each  exponential 
fit  band  (W/cm^/sr/cm'’) 

Multiple  scattered  upward  flux 

(thermal/solar)  for  each  exponential 
fit  band  (W/cm^/sr/cm"') 

Solar  elevation  angle  (deg) 

Lunar  elevation  angle  (deg) 


Total  multiple  scattered  upward  flux 
(thermal/solar)  (W/cmVsr/cm'^) 


Total  multiple  scattered  downward  flux 
(thermal/solar)  (W/cmVsr/cm'^) 


Derivative  of  Planck  blackbody  function 
with  temperature  (W/cmVsr/cm'VK) 
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MACHIN 


This  COMMON  block  contains  the  machine  indices  for  machine 
dependent  operations. 

Common  Block  MACHIN  used  in: 

CRBKGD  CRFLTR  CRINPT  CRUAER  CRUATM  CRUCLD 

DEVCBD  FPTEST  FLSTAT 

Variable  Name  Type  Description 

ICMPTR(2)  INTEGER  Machine-dependent  indices 

LRMAX  INTEGER  Maximum  allowed  record  length 


MATERL 


This  COMMON  block  contains  the  parameters  for  the  materials 
used  in  the  user-defined  aerosol  model. 

Common  Block  MATERL  used  in: 

DNDR  MIEINP  MIEPHS 


Variable  Name  Type  Description 


XN(3,100,5) 

COMPLEX 

NSD(5) 

INTEGER 

SIG(5) 

REAL 

R0(5) 

REAL 

SNU(5) 

REAL 

REFF(5) 

REAL 

VEFF(5) 

REAL 

ALPHA(5) 

REAL 

GAMMA(5) 

REAL 

B(5) 

REAL 

SDIST(50,5) 

REAL 

PCT(5) 

REAL 

RDCOTI(5) 

REAL 

RDCOTF(5) 

REAL 

WLAU(100,5) 

REAL 

NWLAU(5) 

INTEGER 

NINTR(5) 

INTEGER 

Spectral  indices  of  refraction  for  two 
core  materials  and  core 
material 

Number  of  points  in  user-defined 
size  distribution 

Standard  deviation  for  log  normal 
size  distribution 
Mean  radius  for  log  normal  or 

breakpoint  radius  for  Junge 
size  distribution  (pm) 

Junge  size  distribution  parameter 
Effective  radius  for  Hansen  size 
distribution  (pm) 

Effective  variance  for  Hansen  size 
distribution 

Modified  Gamma  size  distribution 
parameter 

Modified  Gamma  size  distribution 
parameter 

Modified  Gamma  size  distribution 
parameter 

User-defined  size  distribution 
Fraction  of  particle  radius  that  is  core 
Initial  particle  radius  (pm) 

Final  particle  radius  (pm) 

Wavelength  (pm) 

Number  of  spectral  points 
Number  of  integration  points 
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MATERL  (continued) 


ITYPEP(5) 

ITYPEI(5) 

ITYPEM(3,5) 

FR1(5) 


INTEGER 

INTEGER 

INTEGER 

REAL 


Particle  size  distribution  index 
Core  inclusion  index 
Material  indices  for  core  (2)  and 
coating 

Fraction  of  core  that  is  first  material 
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MIECOT 


This  COMMON  block  contains  the  scattering  matrix  components  used 
in  the  Mie  calculations. 


Common  Block  MIECOT  used  in: 
COAT  MIE  MIEPHS 

Variable  Name  Type 

S1(NXMIE)  COMPLEX 

S2(NXMIE)  COMPLEX 

S11(NXMIE)  REAL 


S12(NXMIE)  REAL 


S33(NXMIE)  REAL 


S34(NXMIE)  REAL 


AMU(NXMIE)  REAL 

PII(NXMIE,2)  REAL 


Description 

Unknown  parameter 
Unknown  parameter 

(1.1) -  and  (2,2)-element  of  the 

Mueller  matrix  times  PI  times 
scattering  efficiency  divided 
the  wavelength  squared 

(1.2) -  and  (2,1)-element  of  the 

Mueller  matrix  times  PI  times 
scattering  efficiency  divided 
the  wavelength  squared 

(3.3) -  and  (4,4)-element  of  the 

Mueller  matrix  times  PI  times 
scattering  efficiency  divided 
the  wavelength  squared 

(3.4) -  and  minus  the  (4,3)-element 

of  the  Mueller  matrix  times  PI 
times  scattering  efficiency 
divided  by  the  wavelength 
squared 

Cosine  of  scattering  angle 
Unknown  parameter 
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MMWREF 


This  COMMON  block  contains  the  parameters  for  calculating  millimeter 
wave  refractivity. 

Common  Block  MMWREF  used  in: 

REFRAC  REFRBD 


Variable  Name 

Type 

Descriotion 

FRQ02(42) 

REAL 

Oxygen  line  frequencies  (GHz) 

302(42) 

REAL 

Oxygen  line  strengths  at  300  K 

ALF02(42) 

REAL 

Oxygen  line  widths  at  300  K 
(GHz/torr) 

PINTER(42) 

REAL 

Interference  parameter  at  300  K 

TINTER(42) 

REAL 

Interference  temperature  correction 

LQP02(42) 

INTEGER 

Oxygen  line  quantum  parameter 

VH20(56) 

REAL 

Water  vapor  line  frequencies  (GHz) 

SH20(56) 

REAL 

Water  vapor  line  strengths 

ALFH20(56) 

REAL 

Water  vapor  line  widths  (cm'Vtorr) 

ELSH20(56) 

REAL 

Ground  energy  state  (K) 
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MOLCON 


This  COMMON  block  contains  the  parameters  for  the  molecular 
concentrations. 

Common  Block  MOLCON  used  in: 

BMOD  BNDPAR  BRBNDR  ENDPT  EQABS  EQUABS 

LOWTRN  MOLPBD  PLMSUB  PRCALC  PRETEM  PUTHDR 

SCNRIO  TANGPT 

Variable  Name  Type  Description 

CMOL(28,MLIDMX, 

MLMAX.MAXLAT, 

MAXLON  REAL  Molecular  concentrations  (ppmv) 

NNN  INTEGER  Number  of  molecules  used  in 

plume  binary  output  file 
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MOLDAT 


This  COMMON  block  contains  the  parameters  for  the  molecular 
partition  functions. 

Common  Block  MOLDAT  used  in: 

BMOD  EQABS  MOLPBD  PARTIT  XMCONV 


Variable  Name 

lype 

NW(MLIDMX) 

INTEGER 

WMOL(MLIDMX,10) 

REAL 

NDEG(MLIDMX,10) 

INTEGER 

XK(MLIDMX) 

REAL 

AIRMWT 

AMWT(MLIDMX) 

REAL 

REAL 

Description 

Number  of  energy  levels  for 

vibration  partition  function 
Energy  levels  for  vibration 
partition  function 

Degeneracy  of  each  energy  level 
for  vibration  partition  function 
Exponent  for  rotational  partition 
function 

Molecular  weight  of  air 
Molecular  weights 


MOLECP 


This  COMMON  block  contains  indexing  information  for  each  molecule 
in  the  direct  access  binary  data  files. 

Common  Block  MOLECP  used  in: 


ABSMOL 

BAND 

BBARSL 

BMOD 

BNDPAR 

DBINIT 

DFLT8 

DVINCR 

EMISSV 

ENDPT 

EQABS 

EQUABS 

KDISTR 

PLMSUB 

PRCALC 

PTHOSB 

PTHTAU 

PUTHDR 

SCNRIO 

SUMFIL 

TANGPT 

USRDEF 

BBTEMP 

VISUAL 

Variable  Name 

Type 

Description 

NMOLEC 

INTEGER 

Number  of  molecules 

MOLID(MLIDMX) 

INTEGER 

Molecular  index  (see  Section  7.0) 

NVA(MLIDMX) 

INTEGER 

Number  of  spectral  groups  in  binary 
data  files 

VA(30,MLIDMX) 

REAL 

Initial  wavenumber  (cm'^)  for 
spectral  group 

VB(30,MLIDMX) 

REAL 

Final  wavenumber  (cm'^)  for  spectral 
group 

IVA(30,MLIDMX) 

INTEGER 

Direct  access  record  number  for  the 
beginning  of  each  spectral 
group 

DVM(MLIDMX) 

REAL 

Spectral  resolution  (cm'^) 

DVREF 

REAL 

Reference  spectral  increment  in 
molecular  data  bases  (cm"') 

IPLUM(6) 

INTEGER 

Plume  molecular  index 
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MSPARM 


This  COMMON  block  contains  the  exponential  sum  fit  parameters  for 
the  multiple  scattering  calculations. 

Common  Block  MSPARM  used  in; 

COUPLE  INICPL  PRCALC 


Variable  Name 

lype 

Descriotion 

AMS(NBAND, 

MLMAX.MAXLAT, 

MAXLON) 

REAL 

Weights 

XKMS(NBAND, 

MLMAX.MAXLAT, 

MAXLON) 

REAL 

Exponential  terms 
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NAVMAR 


This  COMMON  block  contains  the  parameters  for  the  Navy  Aerosol  Model. 

Common  Block  NAVMAR  used  in: 

MARINE  MARNBD 


Variable  Name 

Type 

Descriotion 

TQEXT(3.40,4) 

REAL 

Extinction  coefficient  (km'^)  as  a 
function  of  wind  speed, 
wavelength,  and  relative  humidity 

TQABS(3,40,4) 

REAL 

Absorption  coefficient  (km'^)  as  a 
function  of  wind  speed, 
wavelength,  and  relative  humidity 

WL(40) 

REAL 

Wavelength  (pm) 

RELHUM(4) 

REAL 

Relative  humidity 
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N02XS 


This  COMMON  block  contains  the  cross-sections  of  nitrogen  dioxide 
between  14,095  and  49,970  cm  \ 

Common  Block  N02XS  used  in: 

ABSN02  N02BD 


Variable  Name 

lyge 

Descriotion 

VBEG 

REAL 

Initial  wavenumber  (cm‘^) 

VEND 

REAL 

Final  wavenumber  (cm'’) 

VINCR 

REAL 

Wavenumber  increment  (cm'^) 

CRSN02(NMAX) 

REAL 

Cross-section  of  nitrogen  dioxide 
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03CWB 


This  COMMON  block  contains  the  cross-section  of  the  Chappuis  and 
Wulf  band  of  ozone  between  9,170  and  24,565  cm  V 

Common  Block  03CWB  used  in; 

ABS03  03CWBD 


Variable  Name 

Type 

Descriotion 

VBEG 

REAL 

Initial  wavenumber  (cm'^) 

VEND 

REAL 

Final  wavenumber  (cm'^) 

VINCR 

REAL 

Wavenumber  increment  (cm"*) 

CTO(NMAX) 

REAL 

Zeroth  order  parameter  for  cross-section 
(amagat"'  cm'^) 

CTI(NMAX) 

REAL 

First  order  parameter  for  cross-section 
(amagaf’  cm'^  K'^) 

CT2(NMAX) 

REAL 

Second  order  parameter  for  cross-section 
(amagaf^  cm’^  K'^) 
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03PAR 


This  COMMON  block  contains  the  LOWTRAN  band  parameters  of  ozone. 

Common  Block  03PAR  used  in: 

CP03BD  LOWTRN 

Variable  Name  Type  Description 

CP03(447)  REAL  LOWTRAN  band  model  parameters 

for  ozone 
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OMATLW 


This  COMMON  block  contains  the  altitude  arrays  used  in  the  broad 
band  heat  transfer  calculations. 


Common  Block  OMATLW  used  in: 

FLUXLW  OPATH  SOLBND 


Variable  Name 

Type 

ULW(10,10) 

REAL 

VLW(10,10) 

REAL 

WLW(10,10) 

REAL 

XLW(10,10,2) 

REAL 

YLW(10,10) 

REAL 

ZLW(10,10,2) 

REAL 

TU(10,10) 

REAL 

TV(10,10) 

REAL 

TW(10,10) 

REAL 

TX(10,10) 

REAL 

TM(10,10) 

REAL 

TF(10,10) 

REAL 

TRANLW 

Description 

Optical  path  matrix  for  water  vapor 
Optical  path  matrix  for  carbon  dioxide 
Optical  path  matrix  for  ozone 
Optical  path  matrix  for  aerosol 
scattering 

Optical  path  matrix  for  Rayleigh 
scattering 

Optical  path  matrix  for  aerosol 
absorption 

Temperature-weighted  optical  path 
matrix  for  water  vapor 
Temperature-weighted  optical  path 
matrix  for  carbon  dioxide 
Temperature-weighted  optical  path 
matrix  for  ozone 

Temperature-weighted  optical  path 
matrix  for  aerosols 
Effective  temperature  (K)  matrix 
Transmission  matrix 
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OPTDEP 


This  COMMON  block  contains  the  optical  depths  for  the  various 
atmospheric  constituents. 


Common  Block  OPTDEP  used  in: 

PRCALC  PTHTAU  RSHINE 

Variable  Name  Tvoe  Description 

XSS(ISMX,MLMX2)  DOUBLE  PRECISION  Optical  depth  for  each  atmospheric 

constituent  at  each  point 
along  the  ray 
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OUTPUT 


This  COMMON  block  contains  the  switch  that  controls  the  ASCII  output. 

Common  Block  OUTPUT  used  in: 

ATMPRN  BCKPRN  BRBNDR  EQUABS  INITL 

Variable  Name  Type  Description 

IPRNDX  INTEGER  ASCII  output  length  index 
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02C 


This  COMMON  block  contains  the  parameters  for  the  molecular 
oxygen  continuum. 

Common  Block  02C  used  in: 

02CBD  02CNT 


Variable  Name 

Type 

NPT02 

INTEGER 

V02(2) 

REAL 

DV02 

REAL 

0230(74) 

REAL 

02A(74) 

REAL 

02B(74) 

REAL 

Description 

Number  of  spectral  points 
Initial  and  final  wavenumbers  (cm  ’) 
Incremental  wavenumber  (cm  ’) 
Absorption  coefficient 
(amagaf’  cm  ’) 

Temperature  dependent  coefficient 
(K-’) 

Temperature  dependent  coefficient 
(K-^) 
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03HHB 


This  COMMON  block  contains  the  parameters  for  the  Hartley-Huggins 
band  of  ozone  in  the  visible  and  ultraviolet. 

Common  Block  03HHB  used  in: 

ABS03  03HHBD 


Variable  Name 

Type 

V1C 

REAL 

V2C 

REAL 

DVC 

NC 

C03DT(3,2687) 

REAL 

INTEGER 

REAL 

V10 

REAL 

V20 

REAL 

DVO 

NO 

C03DAT(133) 

REAL 

INTEGER 

REAL 

Description 

Initial  wavenumber  (cm"')  for 

27370  -  29400  cm  ’  region 
Final  wavenumber  (cm’’)  for 

27370  -  29400  cm  ’  region 
Wavenumber  increment  (cm’’) 
Number  of  spectral  points 
Absorption  coefficient 
(amagaf’  cm’’) 

Initial  wavenumber  (cm’’)  for 

40800  -  54054  cm  ’  region 
Final  wavenumber  (cm  ’)  for 

40800  -  54054  cm  ’  region 
Wavenumber  increment  (cm  ’) 
Number  of  spectral  points 
Absorption  coefficient 
(amagaf’  cm’’) 
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PATH1 


This  COMMON  block  contains  various  parameters  for  the 
observer-source-background  path.  See  Figure  3. 

Common  Block  PATH1  used  in: 

CALCUL  PLMSUB  PRCALC  PTHOSB  SCNRIO  SRCGEO 


Variable  Name 

Type 

Descriotion 

NSRCE 

INTEGER 

Number  of  points  between  observer  and 
source 

NBKGD 

INTEGER 

Number  of  points  between  observer  and 
background 

DOSB(MLMX2) 

REAL 

Differential  slant  ranges  (km)  between 
observer  and  source-background 

IOSB(MLMX2) 

VARXZ(MLMX2, 

INTEGER 

Pointers  to  altitude  profile  along  the 

observer-source-background  path 

NAZMAX) 

REAL 

Scintillation  parameter  along  the 

observer-source-background  path 

RSCINT(MLMX2) 

REAL 

Running  sum  of  DOSB  (km) 

SOLEVB(NAZMAX) 

REAL 

Solar  elevation  angle  at  background  (rad) 

XLNEVB(NAZMAX) 

REAL 

Lunar  elevation  angle  at  background  (rad) 

PHIOSB(MLMX2) 

REAL 

Elevation  angle  (rad)  along  the 

observer-source-background  path 

ACCAPT(2) 

REAL 

Sensor  aperture  acceptance  angle  (rad)  for 
forward  in-scatter  along  the 
observer-source-background  path 

THOSB(MLMX2) 

REAL 

Earth  center  angle  (rad)  along  the 

observer-source-background  path 

425 


PRA95462 


Figure  3.  Observer-Source-Background  Path.  COMMON  Block:  PATH1 


PATH  1 A 


Common  Block  PATH  1 A  used  in; 

CALCUL  PLMSUB  PRCALC  SCNRIO 


Variable  Name 

Type 

PTHLAT(MLMX2, 

NAZMAX 

REAL 

PTHLON(MLMX2, 

NAZMAX 

REAL 

PTHFAC(MAXLAT, 

MAXLON,MLMX2, 

NAZMAX) 

REAL 

NPTHFC(2,2, 

NAZMAX) 

INTEGER 

FRSNW(NAZMAX) 

REAL 

FRWTR(NAZMAX) 

REAL 

FRICE(NAZMAX) 

REAL 

Description 

Latitude  along  path  (deg) 

Longitude  along  path  (deg) 

Interpolation  factor  along  path 

Limits  of  grid  where  geometry  is  valid 
Fraction  snow  in  terrain 
Fraction  water  in  terrain 
Fraction  ice  in  terrain 
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PATH2 


This  COMMON  block  contains  the  parameters  for  the  earth/skyshine 
rays  at  the  source  paths.  See  Figure  4. 

Common  Block  PATH2  used  in: 

RSHINE  SRCIRR 


Variable  Name 

IyB.e 

Descriotion 

NSH 

INTEGER 

Number  of  points  along  each 
earth/skyshine  path 

DRSH(MLMX2) 

REAL 

Differential  slant  ranges  (km) 

along  each  earth/skyshine  path 

ISH(MLMX2) 

INTEGER 

Pointer  to  altitude  profile  along  each 
earth/skyshine  path 

PHISHL(MLMX2) 

REAL 

Elevation  angles  (rad)  along  each 
earth/skyshine  path 

SHNFAC(MAXLAT, 

MAXLON,MLMX2, 

NZSMAX) 

REAL 

Interpolation  factor  for  global 

atmosphere  for  each  point 
along  earth/skyshine  path 

SHSNW(NZSMAX) 

REAL 

Fraction  snow  cover  on  terrain  at 
path  end 

SHICE(NZSMAX) 

REAL 

Fraction  ice  on  terrain  at  path  end 

SHWTR(NZSMAX) 

REAL 

Fraction  water  on  terrain  at  path  end 

NSHNFC(2,2, 

NSHNFC) 

INTEGER 

Limits  of  grid  where  geometry  is 
valid 
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Figure  4.  Sky/Earthshine  Ray  Path  at  Source.  There  is  a  set  of  paths  for 
each  user-specified  observer-source  azimuth  angle.  COMMON 
Block:  PATHS. 


♦ 
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PATH2A 


This  COMMON  block  contains  the  parameters  for  each  intermediate  point 
along  a  source  earth/skyshine  ray  to  the  sun.  See  Figure  5.  For  example, 
for  each  skyshine  ray,  if  there  are  3  different  azimuth  angles,  and  there 
are  10  intermediate  points  along  each  of  the  skyshine  rays,  there  will  be 
a  total  of  30  path  dealt  with  in  this  COMMON  block. 

Common  Block  PATH2A  used  in: 

RSHINE  SRCIRR 

Variable  Name  Type  Description 

NSHSL(NZSMAX, 

MLMX2,NASMAX)  INTEGER  Number  of  points  along  each  ray  between 

each  point  along  the  points  along  an 
earth/skyshine  path  and  the  sun 

ISHSL(ISTMAX)  INTEGER  Pointers  to  the  altitude  profile  along  each 

earth/skyshine-solar  path;  since 
there  are  4*32  =  128  possible 
earth/skyshine  paths,  and  up  to 
200  points  for  each  path,  there 
25,600  points;  each  point  has 
a  ray  to  the  sun  with  up  to  200 
points  each,  so  there  can  be  up  to 
5.12  million  points  possible;  tests 
have  shown  that  ISTMAX  will  handle 
most  reasonable  geometries;  if  the 
total  number  of  points  exceeds 
ISTMAX,  these  values  are  written 
to  a  scratch  file  and  a  warning 
message  is  given. 
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PATH2A  (continued) 


DRSHSL(ISTMAX)  REAL  Differential  slant  ranges  (km)  along  each 

earth/skyshine-solar  path;  since 
there  are  4*32  =  128  possible 
earth/skyshine  paths,  and  up  to 
200  points  for  each  path,  there 
25,600  points;  each  point  has 
a  ray  to  the  sun  with  up  to  200 
points  each,  so  there  can  be  up  to 
5.12  million  points  possible;  tests 
have  shown  that  ISTMAX  will  handle 
most  reasonable  geometries;  if  the 
total  number  of  points  exceeds 
ISTMAX,  these  values  are  written 
to  a  scratch  file  and  a  warning 
message  is  given. 

SSLFAC(MAXLAT, 

MAXLON, ISTMAX)  REAL  Interpolation  factor  for  latitude  variations  in 

global  atmosphere  for  each  point 
along  earth/skyshine-solar  path 
NSSLFC(2,2)  INTEGER  Limits  of  grid  where  geometry  is  valid 
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Figure  5.  Sky/Earthshine  Rays  at  Source  Intermediate  Point-to-Sun  Paths. 
There  is  a  set  of  paths  as  shown  above  for  each  user-specified 
receiver-target  azimuth  angle.  COMMON  Blocks:  PATH  2A,  2B, 
2C,  2H,  21,  2J,  2L,  2M,  2N. 
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PATH2B 


This  COMMON  block  contains  the  parameters  for  each  intermediate  point 
along  a  source  earth/skyshine  ray  to  the  sun.  See  Figure  5.  For  example, 
for  each  skyshine  ray,  if  there  are  3  different  azimuth  angles,  and  there 
are  10  intermediate  points  along  each  of  the  skyshine  rays,  there  will  be 
a  total  of  270  path  dealt  with  in  this  COMMON  block. 

Common  Block  PATH2B  used  in: 

RSHINE  SRCIRR 


Variable  Name 

Type 

Descriotion 

NDXSH(NZSMAX, 

MLMX2) 

SCTNGS(NZSMAX, 

INTEGER 

Pointers  to  the  starting  position  of  each 
path 

MLMX2) 

REAL 

Solar  scattering  angle  (deg)  along 
earth/skyshine  paths 

SLEVSH(NZSMAX) 

REAL 

Solar  elevation  angle  (deg)  at 

earth/skyshine  path  termination 
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PATH2C 


This  COMMON  block  contains  the  parameters  for  each  intermediate  point 
along  a  source  earth/skyshine  ray  to  the  sun.  See  Figure  5.  For  example, 
for  each  skyshine  ray,  if  there  are  3  different  azimuth  angles,  and  there 
are  10  intermediate  points  along  each  of  the  skyshine  rays,  there  will  be 
a  total  of  270  path  dealt  with  in  this  COMMON  block. 

Common  Block  PATH2C  used  in: 

RSHINE  SRCIRR 


Variable  Name 

lype 

Description 

NSHLN(NZSMAX, 

MLMX2) 

INTEGER 

Number  of  points  along  each  ray  between 
each  point  along  the  points  along  a 
earth/skyshine  path  and  the  moon 

ISHLN(ISTMAX) 

INTEGER 

Pointers  to  the  altitude  profile  along  each 
earth/skyshine-lunar  path;  since 

there  are  4*32  =  128  possible 
earth/skyshine  paths,  and  up  to 
200  points  for  each  path,  there 
25,600  points;  each  point  has 
a  ray  to  the  moon  with  up  to  200 
points  each,  so  there  can  be  up  to 
5.12  million  points  possible;  tests 
have  shown  that  ISTMAX  will  handle 
most  reasonable  geometries;  if  the 
total  number  of  points  exceeds 
ISTMAX,  these  values  are  written 
to  a  scratch  file  and  a  warning 
message  is  given. 


a 
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PATH2C  (continued) 


DRSHLN(ISTMAX)  REAL  Differential  slant  ranges  (km)  along  each 

earth/skyshine-lunar  path;  since 
there  are  4*32  =  128  possible 
earth/skyshine  paths,  and  up  to 
200  points  for  each  path,  there 
25,600  points;  each  point  has 
a  ray  to  the  moon  with  up  to  200 
points  each,  so  there  can  be  up  to 
5.12  million  points  possible;  tests 
have  shown  that  ISTMAX  will  handle 
most  reasonable  geometries;  if  the 
total  number  of  points  exceeds 
ISTMAX,  these  values  are  written 
to  a  scratch  file  and  a  warning 
message  is  given. 

SLNFAC(MAXATM, 

ISTMA)  REAL  Interpolation  factor  for  latitude  variations  in 

global  atmosphere  for  each  point 
along  earth/skyshine-lunar  path 
NSLNFC(2,2)  INTEGER  Limits  of  grid  where  geometry  is  valid 
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PATH2D 


This  COMMON  block  contains  the  parameters  for  each  intermediate  point 
along  a  source  earth/skyshine  ray  to  the  moon.  See  Figure  5.  For  example, 
for  each  skyshine  ray,  if  there  are  3  different  azimuth  angles,  and  there 
are  10  intermediate  points  along  each  of  the  skyshine  rays,  there  will  be 
a  total  of  270  path  dealt  with  in  this  COMMON  block. 

Common  Block  PATH2D  used  in: 

RSHINE  SRCIRR 


Variable  Name 

Type 

Description 

NDXSHL(NZSMAX, 

MLMX2) 

SCTNGL(NZSMAX, 

INTEGER 

Pointers  to  the  starting  position  of 
each  path 

MLMX2) 

REAL 

Lunar  scattering  angle  (deg)  along 
earth/skyshine  paths 

XLEVSH(NZSMAX) 

REAL 

Lunar  elevation  angle  (deg)  at 
earth/skyshine  path 
termination 

436 


PATH4 


This  COMMON  block  contains  the  celestial  coordinates  for  the 
termination  of  each  path. 

Common  Block  PATH4  used  in: 

CALCUL  COUPLE  PRCALC  RSHINE  SCNRIO  SRCIRR 


Variable  Name 

Type 

Descriotion 

XLGALT(NAZMAX) 

REAL 

Galactic  azimuth  (deg)  of  observer 
line-of-sight 

BGALT(NAZMAX) 

REAL 

Galactic  elevation  (deg)  of  observer 
line-of-sight 

XLECLT(NAZMAX) 

REAL 

Ecliptic  azimuth  (deg)  of  observer 
line-of-sight 

BECLT(NAZMAX) 

XLGALS(NASMAX, 

REAL 

Ecliptic  elevation  (deg)  of  observer 
line-of-sight 

NZSMAX) 

BGALS(NASMAX, 

REAL 

Galactic  azimuth  (deg)  of 

earth/skyshine  line-of-sight 

NZSMAX) 

XLECLS(NASMAX, 

REAL 

Galactic  elevation  (deg)  of 

earth/skyshine  line-of-sight 

NZSMAX) 

BECLS(NASMAX, 

REAL 

Ecliptic  azimuth  (deg)  of  earth/skyshine 
line-of-sight 

NZSMAX) 

XLGALC(MAXLAT, 

REAL 

Ecliptic  elevation  (deg)  of 

earth/skyshine  line-of-sight 

MAXLON) 

BGALC(MAXLAT, 

REAL 

Galactic  azimuth  for  each 
atmosphere  (deg) 

MAXLON) 

XLECLC(MAXLAT, 

REAL 

Galactic  elevation  for  each 
atmosphere  (deg) 

MAXLON) 

BECLC(MAXLAT, 

REAL 

Ecliptic  azimuth  for  each 
atmosphere  (deg) 

MAXLON) 

REAL 

Ecliptic  elevation  for  each 
atmosphere  (deg) 
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PATH4  (continued) 


FRSNWL(MAXLAT, 

¥ 

MAXLON) 

FRWTRL(MAXLAT, 

REAL 

Fraction  snow  cover  at  each  latitude 
and  longitude 

% 

MAXLON) 

FRICEL(MAXLAT, 

REAL 

Fraction  water  at  each  latitude  and 
longitude 

MAXLON) 

REAL 

Fraction  ice  at  each  latitude  and 
longitude 
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PATH5A 


This  COMMON  block  contains  the  parameters  for  the  paths  from  each 
intermediate  point  along  the  observer-source-background  path  to  the  sun. 
There  is  one  set  of  paths  for  each  user-specified  observer-source 
azimuth  angle.  For  example,  if  there  are  100  intermediate  points  along 
the  observer-source-background  path  and  there  are  3  observer-source 
azimuth  angles,  the  arrays  in  this  COMMON  block  will  deal  with  a  total 
of  300  paths.  See  Figure  6. 

Common  Block  PATH5A  used  in: 

CALCUL  DEFBCK  PRCALC  SCNRIO 


Variable  Name 

Type 

Descriotion 

NTBSUNAZMAX, 

MLMX2) 

NDXSL(NAZMAX, 

INTEGER 

Number  of  points  along  each 

observer-source-background/ 
solar  path 

MLMX2) 

SCTANG(NAZMAX, 

INTEGER 

Pointers  to  the  starting  position  of 
each  path 

MLMX2) 

REAL 

Scattering  angle  (deg)  to  the  sun  at 
the  initial  point  for  each  path 
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ATMOSPHERIC  PROFILE  LAYERS 


PRA95465 


Figure  6.  Observer-Source-Background  Intermediate  Point-to-Sun  Paths. 
There  is  a  set  of  paths  as  shown  for  each  user-specified 
observer-source  azimuth  angle.  COMMON  Blocks:  PATH  5A, 
5B,  5C,  5D,  5E,  5F. 


PATH5B 


This  COMMON  block  contains  the  parameters  for  the  paths  from  each 
intermediate  point  along  the  observer-source-background  path  to  the  sun. 

There  is  one  set  of  paths  for  each  user-specified  observer-source 
azimuth  angle.  For  example,  if  there  are  100  intermediate  points  along 
the  observer-source-background  path  and  there  are  3  observer-source 
azimuth  angles,  the  arrays  in  this  COMMON  block  will  deal  with  a  total 
of  300  paths.  See  Figure  6. 

Common  Block  PATH5B  used  in: 

CALCUL  PRCALC  SCNRIO 

Variable  Name  Type  Description 

ITBSL(ISTMAX)  INTEGER  Pointers  to  the  altitude  profile  along  each 

observer-source-background/solar 
path;  since  there  are  NAZMAX 
possible  azimuths,  and  up  to 
MLMX2  points  for  each  path,  each 
point  has  a  ray  to  the  sun  with  up  to 
MLMX2  points  each,  so  there  can  be 
up  to  0.32  million  points  possible; 
tests  have  shown  that  ISTMAX  will 
handle  most  reasonable  geometries; 
if  the  total  number  of  points  exceeds 
ISTMAX,  these  values  are  written  to 
a  scratch  file  and  a  warning 
message  is  given. 
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PATH5B  (continued) 


DOSBSL(ISTMAX)  REAL  Differential  slant  ranges  (km)  along  each 

observer-source-background/solar 
path;  since  there  are  NAZMAX 
possible  azimuths,  and  up  to  MLMX2 
points  for  each  path,  and  each  point 
has  a  ray  to  the  sun  with  up  to 
MLMX2  points  each,  so  there  can  be 
up  to  0.32  million  points  possible; 
tests  have  shown  that  ISTMAX  will 
handle  most  reasonable  geometries; 
if  the  total  number  of  points  exceeds 
ISTMAX,  these  values  are  written  to 
a  scratch  file  and  a  warning 
message  is  given. 

SLXFAC(MAXLAT, 

MAXLON, ISTMAX)  REAL  Interpolation  factor  for  global  atmosphere 

for  each  point  along 

observer-source-background/solar 

path 

NSLXFC(2,2)  INTEGER  Limits  of  grid  where  geometry  is  valid 
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PATH5C 


This  COMMON  block  contains  the  parameters  for  the  paths  from  each 
intermediate  point  along  the  observer-source-background  path  to  the  moon. 

There  is  one  set  of  paths  for  each  user-specified  observer-source 
azimuth  angle.  For  example,  if  there  are  100  intermediate  points  along 
the  observer-source-background  path  and  there  are  3  observer-source 
azimuth  angles,  the  arrays  in  this  COMMON  block  will  deal  with  a  total 
of  300  paths.  See  Figure  6. 

Common  Block  PATH5C  used  in: 

CALCUL  DEFBCK  PRCALC  SCNRIO 

Variable  Name  Type  Description 

NTBLN(NAZMAX, 

MLMX2)  INTEGER  Number  of  points  along  each 

observer-source-background/ 
moon  path 

NDXLN(NAZMAX, 

MLMX2)  INTEGER  Pointers  to  the  starting  position  of 

each  path 

SCTNGX(NAZMAX, 

MLMX2)  REAL  Scattering  angle  (deg)  to  the  moon  at 

the  initial  point  for  each  path 
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PATH5D 


This  COMMON  block  contains  the  parameters  for  the  paths  from  each 
intermediate  point  along  the  observer-source-background  path  to  the  moon.  ’ 

There  is  one  set  of  paths  for  each  user-specified  observer-source 
azimuth  angle.  For  example,  if  there  are  100  intermediate  points  along 
the  observer-source-background  path  and  there  are  3  observer-source  ^ 

azimuth  angles,  the  arrays  in  this  COMMON  block  will  deal  with  a  total 
of  300  paths.  See  Figure  6. 

Common  Block  PATH5D  used  in: 

CALCUL  PRCALC  SCNRIO 

Variable  Name  Type  Description 

ITBLN(ISTMAX)  INTEGER  Pointers  to  the  altitude  profile  along  each 

observer-source-background/lunar 
path;  since  there  are  NAZMAX 
possible  azimuths,  and  up  to  MLMX2 
points  for  each  path,  each  point  has 
a  ray  to  the  moon  with  up  to  MLMX2 
points  each,  so  there  can  be  up  to 
0.32  million  points  possible;  tests 
have  shown  that  ISTMAX  will  handle 
most  reasonable  geometries;  if  the 
total  number  of  points  exceeds 
ISTMAX,  these  values  are  written  to 
a  scratch  file  and  a  warning 
message  is  given. 
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PATH5D  (continued) 


DOSBLN(ISTMAX) 


XLXFAX(MAXLAT, 

MAXLONJSTMAX) 


NXLXFC(2,2) 


REAL  Differential  slant  ranges  (km)  along  each 
observer-source-background/lunar 
path;  since  there  are  NAZMAX 
possible  azimuths,  and  up  to  MLMX2 
points  for  each  path,  each  point  has 
a  ray  to  the  moon  with  up  to  MLMX2 
points  each,  so  there  can  be  up  to 
0.32  million  points  possible;  tests 
have  shown  that  ISTMAX  will  handle 
most  reasonable  geometries;  if  the 
total  number  of  points  exceeds 
ISTMAX,  these  values  are  written  to 
a  scratch  file  and  a  warning 
message  is  given. 

REAL  Interpolation  factor  for  global  atmosphere 
for  each  point  along 
observer-source-background/lunar 
path 

INTEGER  Limits  of  grid  where  geometry  is  valid 
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PATH6 


This  COMMON  block  contains  the  parameters  for  the  sun-source-earth 
path.  See  Figure  7. 

Common  Block  PATHS  used  in: 

CALCUL  PRCALC  SCNRIO 


Variable  Name 

Type 

Descriotion 

NBSLR(MLMAX) 

INTEGER 

Number  of  points  along 

ITBSLR(MLMX2, 

MLMAX) 

INTEGER 

sun-source-earth  path 

Pointer  to  altitude  profile  along 

DRBSLR(MLMX2, 

MLMAX) 

REAL 

sun-source-earth  path 

Differential  slant  ranges  (km)  along 

SOLFAC(MAXLAT, 

MAXLON,MLMX2, 

MLMAX) 

REAL 

sun-source-earth  path 

Interpolation  factor  for  global  atmosphere 

NSOLFC(2,2, 

MLMAX) 

INTEGER 

for  each  point  along 
sun-observer-earth  path 

Limits  of  grid  where  geometry  is  valid 
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PRA95466 


Figure  7.  Sun-Source-Earth  Path  and  Spectral  Band  Model  Parameters  for 
Vertical  Earth-to-Space  Path.  COMMON  Blocks:  PATH6  PATHS. 
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PATHS 


This  COMMON  block  contains  the  parameters  for  the  moon-source-earth 
path.  See  Figure  7. 

Common  Block  PATHS  used  in: 

CALCUL  PRCALC  SCNRIO 


Variable  Name 

Type 

Descriotion 

NBLNR(MLMAX) 

INTEGER 

Number  of  points  along  moon-source-earth 

ITBLNR(MLMX2, 

MLMAX) 

INTEGER 

path 

Pointer  to  altitude  profile  along 

DRBLNR(MLMX2, 

MLMAX) 

REAL 

moon-source-earth  path 

Differential  slant  ranges  (km)  along 

XLNFAC(MAXLAT, 

MAXLON,MLMX2, 

MLMAX) 

REAL 

moon-source-earth  path 

Interpolation  factor  for  global  atmosphere 

NLUNFC(2,2, 

MLMAX) 

INTEGER 

for  each  point  along 
moon-source-earth  path 

Limits  of  grid  where  geometry  is  valid 
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PERLUN 


This  COMMON  block  contains  the 
lunar  longitude,  latitude,  and  parallax. 

Common  Block  PERLUN  used  in: 
EPHEML  LUNPBD 


Variable  Name 

lype 

NLON 

INTEGER 

PLON(50,5) 

REAL 

NLAT 

INTEGER 

PLAT(20,5) 

REAL 

NPAR 

INTEGER 

PPAR(20,5) 

REAL 

Brown  perturbation  terms  for  the 


Description 

Number  of  longitude  perturbation  terms 

Longitude  perturbations 

Number  of  latitude  perturbation  terms 

Latitude  perturbations 

Number  of  parallax  perturbation  terms 

Parallax  perturbations 
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PHFFOG 


This  COMMON  block  contains  the  phase  functions  for  the  advection 
and  radiation  LOWTRAN  fog  models. 

Common  Block  PHFFOG  used  in: 

PHFGBD  PHFUNC 


Variable  Name 

lype 

Description 

NWLFG 

INTEGER 

Number  of  wavelengths 

WLFG(NWLAER) 

PHFOGS(2,NWLAER, 

REAL 

Wavelength  (pm) 

NANG) 

REAL 

Phase  function  (sr^) 

PHFGSY(2,NWLAER) 

REAL 

Asymmetry  factor 
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PHFMAR 


This  COMMON  block  contains  marine  aerosol  parameters. 


Common  Block  PHFMAR  used  in: 
PHFUNC  PHMABD 

Variable  Name  Type 

NWLMA  INTEGER 

WLMA(27)  REAL 

PHMARI(4,27,NANG)  REAL 
PHMASY(4,47)  REAL 


Description 

Number  of  wavelength  points 
Wavelength  (pm) 

Phase  function 
Asymmetry  parameter 
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PHFOCE 


This  COMMON  block  contains  the  single  scattering  phase  functions 
for  the  Navy  Oceanic  Aerosol  Model. 


Common  Block  PHFOCE  used  in: 
PHFUNC  PHOCBD 


Variable  Name  Type 


Description 


NWLOC  INTEGER 

WLOC(27)  REAL 

PHOCEA(4,27,NANG)  REAL 
PHOCSY(4,27)  REAL 


Number  of  spectral  points 
Wavelength  (pm) 

Phase  functions 
Asymmetry  parameter 
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PHFRUR 


r 


This  COMMON  block  contains  the  single  scattering  phase  functions 
for  the  relative  humidity  dependent  Urban  Aerosol  Model. 

Common  Block  PHFRUR  used  in: 

PHFUNC  PHRUBD 


Variable  Name  Type 


Description 


NWLRU  INTEGER 

WLRU(27)  REAL 

PHRURL(4,27,NANG)  REAL 
PHRUSY(4,27)  REAL 


Number  of  spectral  points 
Wavelength  (pm) 

Phase  functions 
Asymmetry  parameter 
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PHFSTR 


This  COMMON  block  contains  the  phase  functions  for  the  stratospheric 
and  mesospheric  aerosol  models. 

Common  Block  PHFSTR  used  in: 

PHFUNC  PHSTBD 


Variable  Name 

Type 

Descriotion 

NWLST 

INTEGER 

Number  of  wavelengths 

WLST(27) 

REAL 

Wavelength  (pm) 

PHSTRA(4,27,NANG) 

REAL 

Phase  function  (sr^) 

PHSTSY(4,27) 

REAL 

Asymmetry  factor 
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PHFTRP 


This  COMMON  block  contains  the  phase  functions  for  the  relative 
humidity  dependent  tropospheric  aerosol  model. 


Common  Block  PHFTRP  used  in: 
PHFUNC  PHTRBD 


Variable  Name  Type 

NWLTR  INTEGER 

WLTR(27)  REAL 

PHTROP(4,27,NANG)  REAL 
PHTRSY{4,27)  REAL 


Description 

Number  of  wavelengths 
Wavelength  (pm) 

Phase  function  (sr^) 
Asymmetry  factor 
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PHFURB 


This  COMMON  block  contains  the  single  scattering  phase  functions 
for  the  relative  humidity  dependent  Urban  Aerosol  Model. 

Common  Block  PHFURB  used  in: 

PHFUNC  PHURBD 


Variable  Name  Type 


Description 


NWLUR  INTEGER 

WLUR(27)  REAL 

PHURBN(4,27,NANG)  REAL 
PHURSY(4,27)  REAL 


Number  of  spectral  points 
Wavelength  (pm) 

Phase  functions 
Asymmetry  parameter 
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PHHYDR 


This  COMMON  block  contains  the  phase  functions  for  the  cloud/fog 
models. 


Common  Block  PHHYDR  used  in: 
PHHYBD  PHYDRO 


Variable  Name 

Type 

Descriotion 

WLC(NWLCLD) 

REAL 

Wavelength  (pm) 

PHCLSY(15,4, 

NWLCLD) 

REAL 

Cloud  asymmetry  factor 

RRTMP(7) 

REAL 

Marshall-Palmer  rain  rates  (mm/hr) 

PHRNSY(8,4, 

NWLCLD) 

REAL 

Rain  asymmetry  factor 

TMPRN(4) 

REAL 

Rain  temperatures  (K) 

TMPSN(4) 

REAL 

Snow  temperatures  (K) 
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PLMDAT 


This  COMMON  block  contains  the  band  model  parameters  for  the 
plume  binary  data  file  for  use  in  the  multiple  line  groups. 

Common  Block  PLMDAT  used  in: 

ENDPT  EQUABS  PLMSUB  TANGPT 


Variable  Name 

lype 

Descriotion 

PLUMEF(NNNMAX, 

NGAS,MLMAX, 

MAXLAT.MAXLON) 

REAL 

Line  strength  partition  function 

PLUMEG(NGAS, 

MLMAX.MAXLAT, 

MAXLON) 

REAL 

Fine  structure  partition  function 
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PLTPRM 


This  COMMON  block  contains  various  plotting  parameters. 


Common  Block  PLTPRM  used  in: 


PLTBD 

PLTDRV  RDMSRT 

Variable  Name 

lype 

Descriotion 

XAXL 

REAL 

Length  of  x-axis  (inches)  (7.0) 

YAXL 

REAL 

Length  of  y-axis  (inches)  (4.0) 

NMOLEC 

INTEGER 

Number  of  molecules 

MOLID{NSMX) 

INTEGER 

Molecular  index 

NCURVE 

INTEGER 

Number  of  curve  elements 
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PRBNDA 


This  COMMON  block  contains  the  spectral  band  model  parameters  for 
each  molecule  for  each  layer  in  the  atmospheric  profile  array  (vertical 
path).  These  band  parameters  are  recalculated  for  each  spectral  bin. 

Common  Block  PRBNDA  used  in: 

BMOD  BNDPAR  INICPL  KDISTR  LOWTRN  PLMSUB 
PTHOSB  PTHTAU 


Variable  Name 

Type 

Description 

SD{ISMX,MLMAX, 

MAXLAT.MAXLON) 

REAL 

S/d  for  each  molecule  for  a  given  spectral 
bin  at  each  intermediate  point  in  the 
atmospheric  profile  (amagaf^  cm"') 

OD(ISMX,MLMAX, 

MAXLAT,MAXLON) 

REAL 

1/d  for  each  molecule  for  a  given  spectral 
bin  at  each  intermediate  point  in  the 
atmospheric  profile  (amagat"*  cm"') 

SC(ISMX,MLMAX, 

MAXLAT.MAXLON) 

REAL 

Scattering  coefficient  (km"') 

QA(ISMX) 

REAL 

Exponent  for  LOWTRAN  double  exponent 
band  model 

IBAND(ISMX) 

INTEGER 

Index  for  type  of  band  model  to  be 
used  for  each  molecule 

0  -  exponential 

1  -  Voight  band  model 

2  -  Double  exponent  band  model 

ISPECS(NSPCMX) 

INTEGER 

Number  of  molecular  species  plus 

molecular  scatter,  aerosols,  and 
hydrometeors 

IMDATA(ISMX) 

INTEGER 

Switch  set  if  molecular  line  strength 
greater  than  zero 
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PRBNDB 


This  COMMON  block  contains  the  spectral  band  model  parameters  for 
each  molecule  for  each  layer  in  the  atmospheric  profile  array  (vertical 
path).  These  band  parameters  are  recalculated  for  each  spectral  bin. 

Common  Block  PRBNDB  used  in: 

BMOD  BNDPAR  INICPL  KDISTR  LOWTRN  PLMSUB 
PTHTAU 


Variable  Name 

Type 

Descriotion 

AL(ISMX,MLMAX, 

MAXLAT.MAXLON) 

REAL 

Molecular  line  width  (cm'^)  at  STP 

AD(ISMX,MLMAX, 

MAXLAT.MAXLON) 

REAL 

Doppler  line  width  (cm  ’)  at  STP 

CD(ISMX,MLMAX, 

MAXLAT.MAXLON) 

REAL 

Continuum  absorption  coefficient  (km  ’) 
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RAINTP 


This  COMMON  block  contains  the  parameters  for  the  rain  models.  The 
size  parameter  has  the  following  form: 

dN/dD  =  nO  *  EXP(-A  *  D  *  (rate**B)) 

with  drop  diameter,  D,  in  pm  and  the  rate  in  mm/hr. 

Common  Block  RAINTP  used  in: 

RAINBD  RAINEX  RAINSP 


Variable  Name 

lyge 

Description 

XN0(5) 

REAL 

nO 

ARAIN(5) 

REAL 

A 

BRAIN(5) 

REAL 

B 
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RAINWL 


This  COMMON  block  contains  the  spectral  parameters  for  the 
rain  models. 


Common  Block  RAINWL  used  in: 

RAINBD  RAINSP  SNOWSP 


Variable  Name 

lype 

Descriotion 

WLRN(NWLCLD) 

REAL 

Wavelength  (pm) 

RNTMP(7) 

REAL 

Rain  rate  (mm/hr) 

CAR(7,4,NWLCLD) 

REAL 

Rain  normalized  absorption  coefficient 

CXR(7,4,NWLCLD) 

REAL 

Rain  normalized  extinction  coefficient 

CSX(4,NWLCLD) 

REAL 

Snow  normalized  absorption  coefficient 

CSA(4,NWLCLD) 

REAL 

Snow  normalized  extinction  coefficient 

TEMPRN(4) 

REAL 

Rain  parameter  temperatures  (K) 

TEMPSN(4) 

REAL 

Snow  parameter  temperatures  (K) 
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RMODAT 


This  COMMON  block  contains  various  parameters  used  in  the  plotting 
routines. 


Common  Block  RMODAT  used  in: 
PLTDRV  RDMSRT 


Variable  Name 

WAVLNG(NUMPTS, 

Type 

Description 

NUMCRV) 

REAL 

Wavelength  (pm)  or  wavenumber  (cm'^) 

XMAX 

REAL 

Maximum  spectral  limit  (pm  or  cm"*) 

XMIN 

PATRAD(NUMPTS, 

REAL 

Minimum  spectral  limit  (pm  or  cm'^) 

NAZMAX, NUMCRV) 

REAL 

Path  radiance  (W/cm^/sr/pm  or 
W/cm"/sr/cm-') 

ATMAX 

REAL 

Maximum  value  of  both  PATRAD  and 
BKGRAD  (W/cmVsr/pm  or 
W/cm^/sr/cm'^) 

ATM  IN 

REAL 

Minimum  value  of  both  PATRAD  and 
BKGRAD  (W/cm^/sr/pm  or 
W/cmVsr/cm"'’) 

PRYMAX{NAZMAX) 

BKGRAD(NUMPTS, 

REAL 

Maximum  value  of  PATRAD  (W/cmVsr/pm 
or  W/cm%r/cm'^) 

NAZMAX, NUMCRV) 

REAL 

Background  radiance  (W/cm7sr/pm  or 
W/cm^/sr/cm^) 

BRYMAX(NAZMAX) 

TRAN(NUMPTS, 

REAL 

Maximum  value  of  BKGRAD  (W/cm^/sr/pm) 

NAZMAX, NUMCRV) 

TRNMOL(NUMPTS,3, 

NAXMAX,NUMCRV, 

REAL 

Transmission,  forward  in-scatter 

transmission,  and  scintillation 
with  respect  to  the  source 

NSMX) 

REAL 

Molecular  band,  line  wing,  and  total 
transmittance 
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RSTART 


This  COMMON  block  contains  the  switch  and  the  local  for  a  restarting 
of  the  calculations. 

Common  Block  RSTART  used  in: 

BINFIL  CALCUL 

Variable  Name  Type  Description 

NGEOMR  INTEGER  Geometry  to  restart 

NVR  integer  Spectral  value  to  restart 

NVS  INTEGER  Spectral  bin  to  restart 

LRSTRT  LOGICAL  Flag  to  restart  or  not 
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SCENES 


This  COMMON  block  contains  the  parameters  to  define  the  structured 
terrain  scenes. 

Common  Block  SCENES  used  in: 

ATMPRN  SCENBD  SETBCK  TERMPR  USRBCK 


Variable  Name 

Type 

NSCENE 

INTEGER 

SCENE(NSCEN, 

NMATL) 

REAL 

CORLEN(NSCNE, 

NMATL) 

REAL 

PSDSLP(NSCNE, 

NMATL) 

REAL 

STDEVM(NSCNE, 

NMATL) 

REAL 

RGCORL(NSCEN) 

REAL 

RGSTDV(NSCEN) 

REAL 

RGPWRL(NSCEN) 

REAL 

Description 

Number  of  scenes 

Fraction  of  each  scene  that  consists 
of  each  material 

Correlation  length  for  each  material 
(m) 

PSD  slope  of  each  material 

Log  base  1 0  of  the  standard 

deviation  relative  to  the  mean 
for  each  material 

Roughness  correlation  length  (m) 

Log  base  10  of  the  roughness 

standard  deviation  relative  to 
the  mean 

Roughness  PSD  slope 
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SHURUN 


This  COMMON  block  contains  the  parameters  for  the  Schumann-Runge 
band  parameters  for  molecular  oxygen  in  the  ultraviolet. 


Common  Block  SHURUN  used  in: 


ABS02 

02UVBD 

Variable  Name 

Type 

Descriotion 

VSH02(2) 

REAL 

Wavenumber  limits  (cm’^) 

DVSH02 

REAL 

Increment  (cm'^) 

SHN02(424) 

REAL 

Logarithm  (base  10)  of  absorption 
coefficient 
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SILEMS 


This  COMMON  block  contains  the  volumetric  emissivity  of  zodiacal  light. 


Common  Block  SILEMS  used  in: 
EMISSV  ZOD1BD 


Variable  Name  Type 


Description 


NPTWL  INTEGER 

NDIST  INTEGER 

VOLMIS(291,33)  REAL 


Number  of  wavelength  values 
Number  of  distance  values 
Volumetric  emissivity  of  zodiacal 
light  (W/cm^/sr/cm  ') 
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SNWDAT 


This  COMMON  block  contains  the  parameters  for  the  snow  models. 
Common  Block  SNWDAT  used  in: 


SNOWBD 

SNOWEX 

Variable  Name 

Type 

Descriotion 

ASNW(6,3) 

REAL 

Polynomial  coefficients  for  crystal 
velocity 

BSNW(6,2) 

REAL 

Polynomial  coefficients  for  crystal 
diameter 

RHOWTR(56) 

REAL 

Water  density  (gm/cm®)  as  a 
function  of  temperature 

RHOICE 

REAL 

Ice  density  (gm/m^) 
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S02XS 


This  COMMON  block  contains  the  cross-sections  of  sulfur  dioxide 
between  24,820  and  52,625  cm"\ 

Common  Block  S02XS  used  in: 

ABSS02  S02BD 


Variable  Name 

Type 

Descriotion 

VBEG 

REAL 

Initial  wavenumber  (cm"') 

VEND 

REAL 

Final  wavenumber  (cm'^) 

VINCR 

REAL 

Wavenumber  increment  (cm'^) 

CRSS02(NMAX) 

REAL 

Cross-section  for  sulfur  dioxide 

(amagaf’  cm'^) 


4 
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S0LIR1 


This  COMMON  block  contains  the  spectral  irradiance  of  the  sun  at 
the  earth  for  the  mean  earth-sun  distance  between  0  and  10,000  cm‘\ 


Common  Block  SOLIR1  used  in: 


SLRCNT 

SOLAR  SOLRBD 

Variable  Name 

Type 

Descriotion 

SOLAR1  (10000) 

REAL 

Solar  irradiance  (W/cm^/cm’’) 

SOLRCN 

REAL 

Solar  constant  (W/cm^) 
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S0LIR2 


This  COMMON  block  contains  the  spectral  irradiance  of  the  sun  at 
the  earth  for  the  mean  earth-sun  distance  between  10,001  and  20,000  cm'\ 

Common  Block  SOLIR2  used  in: 

SLRCNT  SOLAR  SOLRBD 


Variable  Name 

Type 

Descriotion 

SOLAR2(10000) 

REAL 

Solar  irradiance  (W/cm^/cm’’) 

SOLRCN 

REAL 

Solar  constant  (W/cm^) 
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SOURS 


This  COMMON  block  contains  the  spectral  irradiance  of  the  sun  at 
the  earth  for  the  mean  earth-sun  distance  between  20,001  and  30,000  cm  \ 


Common  Block  SOLIR3  used  in: 


SLRCNT 

SOLAR  SOLRBD 

Variable  Name 

lyge 

Descriotion 

SOLAR3(10000) 

REAL 

Solar  irradiance  (W/cm^/cm"") 

SOLRCN 

REAL 

Solar  constant  (W/cm^) 
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S0LIR4 


This  COMMON  block  contains  the  spectral  irradiance  of  the  sun  at 
the  earth  for  the  mean  earth-sun  distance  between  30,001  and  40,000  cm'\ 

Common  Block  SOLIR4  used  in: 

SLRCNT  SOLAR  SOLRBD 


Variable  Name 

Type 

Descriotion 

SOLAR4(10000) 

REAL 

Solar  irradiance  (W/cm^/cm"') 

SOLRCN 

REAL 

Solar  constant  (W/cm^) 
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SOURS 


This  COMMON  block  contains  the  spectral  irradiance  of  the  sun  at 
the  earth  for  the  mean  earth-sun  distance  above  40,000  cm‘\ 


Common  Block  SOLIR5  used  in: 


SLRCNT 

SOLAR  SOLRBD 

Variable  Name 

Type 

Descriotion 

SOLAR5(10000) 

REAL 

Solar  irradiance  (W/cm^/cm’’) 

SOLRCN 

REAL 

Solar  constant  (W/cm^) 

NPTSB 

INTEGER 

Number  of  spectral  points  for 
50,001  -  57,420  cm'^ 

DVB 

REAL 

Resolution  (cm'’) 

SOLARB(760) 

REAL 

Solar  irradiance  (W/cm^/cm"’) 

STDMOL 


This  COMMON  Block  contain  the  molecular  concentrations  for  the 
model  atmospheres. 


Common  Block  STDMOL  used  in: 

EQABS  STMLBD  USRDEF 


Variable  Name  Type 


Description 


AMOL(NL,24,7)  REAL 


Molecular  concentration  profiles  for 
each  of  the  major  molecular 
species  for  each  model 
atmosphere  (ppmv) 
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SWPARM 


This  COMMON  block  contains  various  parameters  used  in  the 
short  wave  broad  band  heat  flux  calculations  taken  from  Lacis  and  Hansen. 


Common  Block  SWPARM  used  in: 
BRBNBD  SOLBND 


Variable  Name 

Type 

AK(3.8) 

REAL 

PSW(3,8) 

REAL 

BF(3) 

REAL 

ALAM(3) 

REAL 

IKBAND(3) 

INTEGER 

Description 

Unknown  parameter 

Unknown  parameter 

Fraction  of  solar  flux  in  each  band 

Wavelength  (pm) 

Number  of  elements  per  band 
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TMPOCN 


This  COMMON  block  contains  the  ocean  temperatures. 

Common  Block  TMPOCN  used  in; 

OCNTBD  SEATMP 


Variable  Name 

lyse 

Description 

OCNTMP(4,36,72) 

POTEMP(3,36) 

REAL 

REAL 

Ocean  temperatures  (K) 

Average  mean  potential  temperatures  (°C) 
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TRACEG 


This  COMMON  block  contains  the  LOWTRAN  band  parameter  for  the 
trace  gases. 

Common  Block  TRACEG  used  in: 

LOWTRN  TRACBD 


Variable  Name 

lype 

Descriotion 

CPNH3(431) 

REAL 

LOWTRAN  band  model  parameters  for 

ammonia 

CPNO(62) 

REAL 

LOWTRAN  band  model  parameters  for 

nitric  oxide 

CPN02(142) 

REAL 

LOWTRAN  band  model  parameters  for 

hydrogen  dioxide 

CPS02(226) 

REAL 

LOWTRAN  band  model  parameters  for 

sulfur  dioxide 
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TRANSP 


This  COMMON  block  contain  the  transmission  for  each  molecular 
species,  aerosol,  and  hydrometeor. 

Common  Block  TRANSP  used  in: 

PRCALC  TRNSMT 

Variable  Name  Type  Description 

SPCTRN(iSMX,3, 

NAZMAX)  REAL  Transmission  for  each  of  the  atmospheric 

components 
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UFMIX 


This  COMMON  block  contains  the  LOWTRAN  band  parameters  for  the 
uniformly  mixed  gases. 

Common  Block  UFMIX  used  in: 

LOWTRN  UMIXBD 


Variable  Name 

Type 

Descriotion 

CPCO(173) 

REAL 

LOWTRAN  band  model  parameters  for 
carbon  monoxide 

CPCH4(493) 

REAL 

LOWTRAN  band  model  parameters  for 
methane 

CPN20(704) 

REAL 

LOWTRAN  band  model  parameters  for 
nitrous  oxide 

CP02(382) 

REAL 

LOWTRAN  band  model  parameters  for 
oxygen 
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UFTAPE 


This  COMMON  block  contains  the  parameters  required  to  read  the 
MODTRAN  band  model  tape,  UFTAPE. 


Common  Block  UFTAPE  used  in: 
ABSMOL  UFTPBD 


Variable  Name  Type  Description 


NBLOCK 

IFREQ(273) 

IPARAM(273) 


INTEGER  Number  of  blocks  of  data  on  UFTAPE 
INTEGER  Initial  frequency  for  each  block  of  data  on 
UFTAPE  (cm  ') 

INTEGER  Number  of  spectral  data  sets  in  each  block 
of  data  on  UFTAPE 
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U PR ATM 


This  COMMON  block  contains  the  parameters  for  the  upper  model 
atmosphere  profiles  (i.e.,  above  120  km). 

Common  Block  UPRATM  used  in: 

EQABS  EXOATM  SETALT  UPPRBD 


Variable  Name 

Type 

Descriotion 

ZU(NLUPR) 

REAL 

Altitude  (km) 

TSTD(NLUPR) 

REAL 

Standard  temperature  (K) 

PSTD(NLUPR) 

REAL 

Standard  pressure  (mb) 

TUS(NTEXO, 

NLUPR,3) 

REAL 

Seasonal  temperatures  (K)  for  a  given 

PUS(NTEXO, 

NLUPR,3) 

REAL 

exoatmospheric  temperature 

Seasonal  pressures  (mb)  for  a  given 

TMPEXO(NTEXO) 

REAL 

exoatmospheric  pressure 
Exoatmospheric  temperatures  (K)  for  TUS 

TUX(NLUPR, 

MAXLAT,MAXLON) 

REAL 

and  PUS 

Final  temperatures  (K)  for  upper 

PUX(NLUPR, 

MAXLAT,MAXLON) 

REAL 

atmosphere 

Final  pressures  (mb)  for  upper  atmosphere 
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USERDF 


This  COMMON  block  contains  the  parameters  for  the  user-defined 
atmosphere  model. 

Common  Block  USERDF  used  in: 

ASPECT  DEFALT  EQABS  GETASP  HAZE  ISTAER 

SETALT  STRCN2  USRDEF 


Variable  Name 

lype 

NLUSER 

INTEGER 

ZUSER(MLMAX) 

REAL 

INDXH 

INTEGER 

HZUSER(MLMAX) 

REAL 

INDXC 

INTEGER 

CN2USR(MLMAX) 

REAL 

INDXA 

INTEGER 

lARUSR(MLMAX) 

INTEGER 

NASUSR 

INTEGER 

ASPUSR(NASMAX) 

REAL 

MPUSR 

INTEGER 

PUSER(MLMAX) 

REAL 

MTUSR 

INTEGER 

TUSER(MLMAX) 

REAL 

MCUSR(ISMX) 

INTEGER 

AUSER(MLMAX, 

ISMX) 

REAL 

FLUSR 

LOGICAL 

Description 

Number  of  altitudes 
Altitude  (km) 

Index  for  user-defined  haze  profile 
User-defined  haze  profile  (km'^) 

Index  for  user-defined  structure 
constant  profile 

User-defined  structure  constant 
profile  (m'^^) 

Index  for  user-defined  aerosol 
profile 

User-defined  aerosol  profile 
Number  of  user-defined  earth/skyshine 
elevation  angles 

User-defined  earth/skyshine  elevation 
angles  (deg) 

Index  for  user-defined  pressure 
User-defined  pressure  (mb) 

Index  for  user-defined  temperature 
User-defined  temperature  (K) 

Indices  for  user-defined  molecular 
concentrations 

User-defined  molecular  concentrations 
(ppmv) 

Flag  for  completing  profile  with 
model  atmosphere 
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USERNM 


This  COMMON  block  contains  the  user-defined  atmosphere  name. 

Common  Block  USERNM  used  in: 

USRDEF  BBTEMP  SUMFIL  VISUAL 

Variable  Name  Type  Description 

HMODEL  CHARACTER*40  User-defined  atmosphere  name 
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VSADTA 


This  COMMON  block  contains  the  parameters  for  the  vertical  structure 
profile  of  the  aerosol  density  between  0  and  2  km  above  ground  level. 

Common  Block  VSADTA  used  in: 

ENDPT  EQABS  EQUABS  INITL  TANGPT  VSA 


Variable  Name 

Type 

Descriotion 

HMAX 

REAL 

Maximum  altitude  (km)  at  which  vertical 

ZVSA(NVSA, 

MAXLAT.MAXLON) 

REAL 

structure  profile  will  be  calculated 
Default  value  is  2  km,  unless 
unless  cloud/fog  top  is  lower. 

Altitude  (km) 

RHVSA(NVSA, 

MAXLAT.MAXLON) 

REAL 

Relative  humidity 

HZVSA(NVSA, 

MAXLAT.MAXLON) 

REAL 

Extinction  coefficient  (km'^)  at  0.55  pm 
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WETNES 


This  COMMON  block  contains  the  volumetric  moisture  for  vegetation 
and  soil. 

Common  Block  WETNES  used  in: 

DIREMS  EMISBD 

Variable  Name  Type  Description 

MV(13)  real  Volumetric  moisture  on  vegetation 

and  soil 
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WNLOHI 


This  COMMON  block  contains  the  spectral  LOWTRAN  band  model  coefficients. 

Common  Block  WNLOHI  used  in: 

LOWTRN  WVBNBD 


Variable  Name 

Type 

Descriotion 

MVH20 

INTEGER 

Number  of  water  vapor  bands 

MVC02 

INTEGER 

Number  of  carbon  dioxide  bands 

MV03 

INTEGER 

Number  of  ozone  bands 

MVN20 

INTEGER 

Number  of  nitrous  oxide  bands 

MVCO 

INTEGER 

Number  of  carbon  monoxide  bands 

MVCH4 

INTEGER 

Number  of  methane  bands 

MV02 

INTEGER 

Number  of  oxygen  bands 

MVS02 

INTEGER 

Number  of  sulfur  dioxide  bands 

MVN02 

INTEGER 

Number  of  nitrogen  dioxide  bands 

MVNO 

INTEGER 

Number  of  nitric  oxide  bands 

MVNH3 

INTEGER 

Number  of  ammonia  bands 

IWLH20(14) 

INTEGER 

Lower  limit  for  water  vapor  band  (cm'^) 

IWLCO2(10) 

INTEGER 

Lower  limit  for  carbon  dioxide  band  (cm‘^) 

iWL03(5) 

INTEGER 

Lower  limit  for  ozone  band  (cm'^) 

IWLN20(11) 

INTEGER 

Lower  limit  for  nitrous  oxide  band  (cm'"') 

IWLCO(3) 

INTEGER 

Lower  limit  for  carbon  monoxide  band 
(cm-’) 

IWLCH4(4) 

INTEGER 

Lower  limit  for  methane  band  (cm’’) 

IWL02(6) 

INTEGER 

Lower  limit  for  oxygen  band  (cm"’) 

IWLS02(4) 

INTEGER 

Lower  limit  for  sulfur  dioxide  band  (cm’’) 

IWLN02(3) 

INTEGER 

Lower  limit  for  nitrogen  dioxide  band 
(cm-’) 

IWLNO(1) 

INTEGER 

Lower  limit  for  nitric  oxide  band  (cm-’) 

IWLNH3(2) 

INTEGER 

Lower  limit  for  ammonia  band  (cm  ’) 

IWHH20(14) 

INTEGER 

Upper  limit  for  water  vapor  band  (cm-’) 

IWHCO2(10) 

INTEGER 

Upper  limit  for  carbon  dioxide  band  (cm  ’) 

IWH03(5) 

INTEGER 

Upper  limit  for  ozone  band  (cm  ’) 

IWHN20(11) 

INTEGER 

Upper  limit  for  nitrous  oxide  band  (cm-’) 

IWHCO(3) 

INTEGER 

Upper  limit  for  carbon  monoxide  band 
(cm’) 

IWHCH4(4) 

INTEGER 

Upper  limit  for  methane  band  (cm  ’) 
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WNLOHI  (continued) 


IWH02(6) 

INTEGER 

Upper  limit  for  oxygen  band  (cm'^) 

IWHS02(4) 

INTEGER 

Upper  limit  for  sulfur  dioxide  band  (cm'^) 

IWHN02(3) 

INTEGER 

Upper  limit  for  nitrogen  dioxide  band 
(cm') 

IWHNO(1) 

INTEGER 

Upper  limit  for  nitric  oxide  band  (cm  ') 

IWHNH3(2) 

INTEGER 

Upper  limit  for  ammonia  band  (cm  ') 

ANH3(2) 

REAL 

Ammonia  exponent 

ACO2(10) 

REAL 

Carbon  dioxide  exponent 

ACO(3) 

REAL 

Carbon  monoxide  exponent 

ACH4(4) 

REAL 

Methane  exponent 

AN02(3) 

REAL 

Nitrogen  dioxide  exponent 

AN20(11) 

REAL 

Nitrous  oxide  exponent 

A02(6) 

REAL 

Oxygen  exponent 

A03(5) 

REAL 

Ozone  exponent 

AS02(4) 

REAL 

Sulfur  dioxide  exponent 

AH20(14) 

REAL 

Water  vapor  exponent 

ANO(1) 

REAL 

Nitric  oxide  exponent 

AANH3(2) 

REAL 

Ammonia  exponential  sum  fit  term 

BBNH3(2) 

REAL 

Ammonia  exponential  sum  fit  term 

CCNH3(2) 

REAL 

Ammonia  exponential  sum  fit  term 

AACO2(10) 

REAL 

Carbon  dioxide  exponential  sum  fit  term 

BBCO2(10) 

REAL 

Carbon  dioxide  exponential  sum  fit  term 

CCCO2(10) 

REAL 

Carbon  dioxide  exponential  sum  fit  term 

AACO(3) 

REAL 

Carbon  monoxide  exponential  sum  fit  term 

BBCO(3) 

REAL 

Carbon  monoxide  exponential  sum  fit  term 

CCCO(3) 

REAL 

Carbon  monoxide  exponential  sum  fit  term 

AACH4(4) 

REAL 

Methane  exponential  sum  fit  term 

BBCH4(4) 

REAL 

Methane  exponential  sum  fit  term 

CCCH4(4) 

REAL 

Methane  exponential  sum  fit  term 

AAN02(3) 

REAL 

Nitrogen  dioxide  exponential  sum  fit  term 

BBN02(3) 

REAL 

Nitrogen  dioxide  exponential  sum  fit  term 

CCN02(3) 

REAL 

Nitrogen  dioxide  exponential  sum  fit  term 

AAN20(11) 

REAL 

Nitrous  oxide  exponential  sum  fit  term 

BBN20(11) 

REAL 

Nitrous  oxide  exponential  sum  fit  term 

CCN20(11) 

REAL 

Nitrous  oxide  exponential  sum  fit  term 

AA02(6) 

REAL 

Oxygen  exponential  sum  fit  term 

BB02(6) 

REAL 

Oxygen  exponential  sum  fit  term 

CC02(6) 

REAL 

Oxygen  exponential  sum  fit  term 
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WNLOHI  (continued) 


AA03(5) 

REAL 

Ozone  exponential  sum  fit  term 

BB03(5) 

REAL 

Ozone  exponential  sum  fit  term 

CC03(5) 

REAL 

Ozone  exponential  sum  fit  term 

AAS02(4) 

REAL 

Sulfur  dioxide  exponential  sum  fit  term 

BBS02(4) 

REAL 

Sulfur  dioxide  exponential  sum  fit  term 

CCS02(4) 

REAL 

Sulfur  dioxide  exponential  sum  fit  term 

AAH20(14) 

REAL 

Water  vapor  exponential  sum  fit  term 

BBH20(14) 

REAL 

Water  vapor  exponential  sum  fit  term 

CCH20(14) 

REAL 

Water  vapor  exponential  sum  fit  term 

AANO(1) 

REAL 

Nitric  oxide  exponential  sum  fit  term 

BBNO(1) 

REAL 

Nitric  oxide  exponential  sum  fit  term 

CCNO(1) 

REAL 

Nitric  oxide  exponential  sum  fit  term 

PH20(14) 

REAL 

Water  vapor  pressure  exponent 

PCO2(10) 

REAL 

Carbon  dioxide  pressure  exponent 

P03(5) 

REAL 

Ozone  pressure  exponent 

PN20(11) 

REAL 

Nitrous  oxide  pressure  exponent 

PCO(3) 

REAL 

Carbon  monoxide  pressure  exponent 

PCH4(4) 

REAL 

Methane  pressure  exponent 

P02(6) 

REAL 

Oxygen  pressure  exponent 

PS02(4) 

REAL 

Sulfur  dioxide  pressure  exponent 

PN02(3) 

REAL 

Nitrogen  dioxide  pressure  exponent 

PNO(1) 

REAL 

Nitric  oxide  pressure  exponent 

PNH3(2) 

REAL 

Ammonia  pressure  exponent 

TH20(14) 

REAL 

Water  vapor  temperature  exponent 

TCO2(10) 

REAL 

Carbon  dioxide  temperature  exponent 

T03(5) 

REAL 

Ozone  temperature  exponent 

TN20(11) 

REAL 

Nitrous  oxide  temperature  exponent 

TCO(3) 

REAL 

Carbon  monoxide  temperature  exponent 

TCH4(4) 

REAL 

Methane  temperature  exponent 

T02(6) 

REAL 

Oxygen  temperature  exponent 

TS02(4) 

REAL 

Sulfur  dioxide  temperature  exponent 

TN02(3) 

REAL 

Nitrogen  dioxide  temperature  exponent 

TNO(1) 

REAL 

Nitric  oxide  temperature  exponent 

TNH3(2) 

REAL 

Ammonia  temperature  exponent 
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ZODBND 


This  COMMON  block  contains  the  zodiacal  light  parameters. 


Common  Block  ZODBND  used  in: 
DBANDS  ZOD2BD 


Variable  Name 

Type 

Descriotion 

NPTZOD(3) 

INTEGER 

Number  of  points  in  each  band 

TMPZOD(3) 

REAL 

Temperature  of  dust  (K) 

ALBEDO(3) 

REAL 

Albedo  of  dust 

TAU(3) 

REAL 

OMEGA(3) 

REAL 

XIF(3) 

REAL 

DEL(3) 

REAL 

Q(3) 

REAL 

THEMIS(811) 

REAL 

KRONIS(632) 

REAL 

EOS(632) 

REAL 
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ZPLANE 


This  COMMON  block  contains  the  zodiacal  symmetry  plane  parameters. 

Common  Block  ZPLANE  used  in: 

ZOD2BD  ZODICL 


Variable  Name  Type  Description 


ZNODE 

REAL 

ZINC 

REAL 

ZN 

REAL 

ZALPHA 

REAL 

Ascending  node  (deg) 

Inclination  (deg) 

Normalized  dust  density  at  1  AU 
(particles/m®) 

Radial  dependence  factor 
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6.0  PARAMETER  DATA  DICTIONARY 


The  description  and  value  of  each  PARAMETER  variable,  in  addition  to  the 
modules  in  which  it  is  contained,  are  presented  in  Table  1.  All  PARAMETER 
variables  are  declared  INTEGER. 


Table  1.  PARAMETER  Variables. 


PARAMETER 

VALUE 

DESCRIPTION 

MOLMAX 

26 

Number  of  different  band  molecules  whose  band 
model  parameters  can  be  read  in 

ISMX 

MOLMAX+ 

8 

Number  of  species  used  in  calculations 

I  STM  AX 

30000 

Maximum  size  of  a  COMMON  block  for  raypath 
parameters 

MLMAX 

140 

Maximum  number  of  altitude  points 

MLMX2 

2*MLMAX 

Maximum  number  of  points  for  a  ray 

NASMAX 

15 

Maximum  number  of  earth/skyshine  aspect 
angles 

NAZMAX 

30 

Maximum  number  of  observer-source  azimuths 

NBAND 

16 

Maximum  number  of  elements  in  exponential 
sum  expansion  for  multiple  scattering 

NFRQ 

76 

Number  of  frequency  values  in  microwave  water 
refractivity  data  base 

NGAS 

6 

Number  of  molecules  in  plume  binary  data  file 

NGMAX 

15 

Maximum  number  of  geometries 

NMATL 

28 

Maximum  number  of  background  materials 

NNNMAX 

5 

Number  of  line  groups  used  for  SIRRM 
calculations 

NSCEN 

42 

Maximum  number  of  background  scenes 
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Table  1.  PARAMETER  Variables  (continued). 


PARAMETER 

NTIME 

NWLWTR 

NXMIE 

NZSMAX 

NXMAX 

NANTMX 

NVSA 

NWLCLD 

NWLAER 

NSTTMP 

NANG _ 

NL 

NLUPR 

NTEXO 

MAXLAT 

MAXLON 

NVSMAX 


VALUE 

DESCRIPTION 

500 

Maximum  number  of  time  increments  for  heat 
transfer  data  base 

169 

Number  of  spectral  water  refractivity  data  base 

101 

Maximum  number  of  bins  for  particle  size 
distribution  for  Mie  calculations 

4 

Maximum  number  of  earth/skyshine  azimuth 
angles 

100 

Maximum  number  of  extra  altitudes 

125 

Maximum  number  of  antecedent  temporal  points 

9 

Number  of  altitude  points  for  Vertical  Structure 
Algorithm 

79 

Number  of  spectral  points  for  hydrometeors 

47 

Number  of  spectral  points  for  aerosols 

16 

Number  of  stratospheric  aerosol  temperatures 

65 

Number  of  scattering  angles  for  phase  function 

50 

Number  of  altitude  layers  in  model  atmospheres 

8 

Number  of  altitude  layers  in  upper  atmosphere 
profiles 

11 

Number  of  exospheric  temperature  profiles 

3 

Maximum  number  of  latitudes  used  for  global 
atmosphere 

1 

Maximum  number  of  longitudes  used  for  global 
atmosphere 

20 

Maximum  number  of  spectral  bands 

Table  1.  PARAMETER  Variables  (continued). 


PARAMETER 

VALUE 

DESCRIPTION 

NLMAX 

10 

Maximum  number  of  subsurface  layers  for 
background  temperature  calculations 

NZBNDR 

3 

Number  of  altitudes  in  the  boundary  layer  haze 
profiles 

NZTROP 

9 

Number  of  altitudes  in  the  troposphere  haze 
profiles 

NZSTRA 

17 

Number  of  altitudes  in  the  stratospheric  haze 
profiles 

NZUPR 

14 

Number  of  altitudes  in  the  upper  atmosphere 
haze  profiles 

MLIDMX 

45 

Number  of  molecular  species  that  MOSART 
recognizes 

NSMX 

MLIDMX+8 

Number  of  species  that  MOSART  recognizes 

NDV 

200 

Maximum  number  of  spectral  points  used  in  slit 
function  convolutions 

NSLTD  (in 
ASCBIN) 

5 

Maximum  number  of  variables  to  be  convolved 

NSLTD  (in 
PLTGEN) 

3* 

NAZMAX* 

(1+ISMX) 

Maximum  number  of  variables  to  be  convolved 

MLUSR 

34 

Maximum  number  of  user-defined  altitudes  for 
MODTRAN  input  file 

MAXTMP 

5 

Number  of  temperatures  in  band  model 
parameters 

NMAX  (in 
ABS03) 

3080 

Number  of  spectral  points  for  ozone  band  model 

NMAX  (in 
ABSS02) 

5562 

Number  of  spectral  points  for  sulfur  dioxide  band 
model 
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Table  1.  PARAMETER  Variables  (continued). 


PARAMETER 

VALUE 

DESCRIPTION 

NMAX  (in 

MIE) 

20000 

Maximum  number  of  bins  for  integrating  over  the 
size  distribution 

NPTS  (in 
DENWTR) 

56 

Number  of  temperature  values 

NPTS  (in 
ENDPD) 

2000 

Maximum  number  of  intermediate  altitudes 

NPTS  (in 
EVAPOR) 

18 

Number  of  temperature  values 

NPTS  (in 
EXGALS) 

7 

Number  of  spectral  values 

NPTS  (in 
SCINTL) 

10 

Number  of  scintillation  levels 

MPTS  (in 
SCINTL) 

14 

Number  of  aperture  diameters 

MPTS  (in 
COLOR) 

83 

Number  of  spectral  values  in  CIE  color  curves 

NPMAX 

250 

Maximum  number  of  spectral  points  in  a 
MODTRAN  data  base  logical  record 

NTMPMX 

5 

Number  of  temperature  values  in  the  MODTRAN 
data  base 

MXLNRC 

16384 

Maximum  length  for  a  direct  access  logical 
record 

NLINES 

10 

Number  of  logical  records  used  to  evaluate 
writing  and  reading  direct  access  file 

NUMPTS 

3000 

Maximum  number  of  spectral  points  in  a  curve 
segment 

NUMCRV 

5 

Maximum  number  of  curve  segments  in  a  plot 

N  LAYER 

20 

Number  of  layers  in  subsurface  heat  conduction 
calculation 
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Table  1.  PARAMETER  Variables  (continued). 


PARAMETER 

VALUE 

DESCRIPTION 

NTEMP 

5 

Number  of  temperatures  in  band  parameter  data 
bases 

NWL 

29 

Number  of  spectral  points  for  hydrogen  peroxide 
band  model 

NVMAX  (in 
AMMNIA) 

11 

Number  of  spectral  points  for  ammonia  band 
model 

NVMAX  (in 
VISUAL) 

3600 

Number  of  spectral  points  that  can  be  read  in 
VISUAL 

NVAR6 

6 

Number  of  years  of  historical  data 

NYR1 

44 

Number  of  years  of  long-term  historical  COg  data 
(1743-1959) 

NYR2 

258 

Number  of  recent  CO2  measurements 

NYRMAX 

175 

Number  of  years  for  the  conversion  of  UT  to 
Ephemeris  Time 

NWLMX 

100 

Maximum  number  of  spectral  points  in  user- 
defined  aerosol 

NALB 

30 

Number  of  spectral  values  of  lunar  albedo 

NEL 

37 

Number  of  values  for  variations  in  lunar 
irradiance  due  to  phase 

NBIN 

21 

Number  of  bins  for  integration  over  snow  size 
distribution 

NSPH  (in 
SPHICE) 

11 

Number  of  temperatures  in  specific  heat  of  ice 
calculation 

NSPH  (in 
SPHWTR) 

19 

Number  of  temperatures  in  specific  heat  of  water 
calculations 

NAIT 

10 

Maximum  number  of  points  for  an  Aitken  iterated 
polynomial  interpolation 
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7.0  CALLING  STRUCTURE 


The  calling  structure  (i.e.,  which  routine  calls  which  other  routines  and  which 
routines  are  called  by  a  routine)  is  provided  below,  together  with  the  prerequisite 
calling  order  of  each  program,  and  the  COMMON  block  reference  list. 

7.1  MOSART 


MOSART  calls: 


CALCUL 

CNSTNT 

CONFIG 

DBINIT 

EPHEMS 

EQUABS 

INITL 

lOERR 

PROMPT 

RDFLTR 

SLPOS 

TITLCR 

CALCUL  calls: 

BRBNDR 

INDXBK 

lOERR 

OPNSCR 

PRCALC 

PUTHDR 

RESOLV 

SCNRIO 

SETBCK 

SRCFLX 

SRCGEO 

SRCIRR 

SUMFIL 

BRBNDR  calls: 

AECALC 

AIRTMP 

BBARSL 

EPHEMS 

FLUXLW 

HTBLNC 

lOERR 

SOLBND 

OPATH 

SPCLYR 

PRETEM 

XTERP 

SATUR 

SEATMP 

SLRCNT 

AECALC  calls: 

PLANCK 

PLANCK  calls:  none 
AIRTMP  calls:  none 
BBARSL  calls: 

PLANCK  XTERP 

XTERP  calls: 

IBNSRC 

IBNSRC  calls:  none 
EPHEMS  calls: 

EPHEML  EPHTIM  PLANET  SLPOS  SPTRIG 

EPHEML  calls:  none 
EPHTIM  calls:  none 
PLANET  calls:  none 
SLPOS  calls: 

GEOM  HORIZN 

GEOM  calls: 

ENDPT  INIGEO  RAYPTH 

ENDPT  calls: 

AERSOL  EQABS  HAZE  HYDROM  ISTAER  STRCN2 

XTERP 
AERSOL  calls: 

DESAER  MARINE  MIEPHS  PROFAC  XTERP 

DESAER  calls:  none 
MARINE  calls: 

PROFAC 
PROFAC  calls: 

IBNSRC 
MIEPHS  calls: 

COAT  DNDR  EMTREF  INDEXI  INDEXW  MIE 

PROFAC 
COAT  calls: 

NCYCLE 

NCYCLE  calls:  none 
DNDR  calls: 

GAMMLN 

GAMMLN  calls:  none 
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EMTREF  calls:  none 
INDEXI  calls: 

XTERP 
INDEXW  calls: 

XTERP 
MIE  calls: 

NCYCLE 
EQABS  calls: 

BNDMLG 

XTERP 

BNDMLG  calls:  none 
MDLATM  calls:  none 
PARTIT  calls:  none 
REFRAC  calls: 

PFR 

PFR  calls:  none 
SUPK  calls:  none 
RELHUM  calls: 

SATUR 

SATUR  calls :  none 
HAZE  calls: 

HLOWT 

HLOWT  calls :  none 
HYDROM  calls: 

CIREX 

CIREX  calls :  none 


RAINEX 

calls : 

none 

SNOWEX 

calls : 

none 

ISTAER 

calls : 
HLOWT 

STRCN2 

calls : 
REFRAC 

INIGEO 

calls : 

none 

RAYPTH 

calls: 

TANGPT 

TANGPT 

calls : 
AERSOL 
XTERP 

HORIZN 

calls : 
RAYPTH 

SPTRIG 

calls : 

none 

FLUXLW 

calls : 

none 

HTBLNC 

calls : 
SRFLUX 

SRFLUX 

calls : 
EVAPOR 

EVAPOR 

calls : 
XTERP 

lOERR  calls: 

GERROR 

GERROR 

calls : 

none 

OPATH  calls: 

LAYLW 

LAYLW  calls:  none 

TRANLW 

calls : 

none 

PRETEM 

calls : 

none 

SEATMP 

calls : 

none 

SLRCNT 

calls : 

none 

SOLBND 

calls : 
BB03 

BB03  calls:  none 
CLDLYR  calls: 

BETA 

BETA  calls:  none 
BETAU  calls:  none 


MDLATM  PARTIT 

SUPK 

XTERP 

PROFAC  RAINEX 

XTERP 

EQABS  HAZE 

SATUR 

SATUR  TRANLW 

CLDLYR  SRAT 

BETAU 


REFRAC  RELHUM 


SATUR  SNOWEX 


HYDROM  ISTAER 


SRTLAY  SWAT 


SATUR 


XTERP 


STRCN2 


UDLAY 
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SRAT  calls:  none 
SRTLAY  calls: 

BETA 

SWAT  calls: 

DDIF  GAM  RAB  RBE  UDIF 

DDIF  calls:  none 
GAM  calls:  none 
RAB  calls:  none 
RBE  calls:  none 
UDIF  calls:  none 
UDLAY  calls:  none 
SPCLYR  calls: 

DENAIR  DENWTR  SPHAIR  SPHICE  SPHWTR  THCAIR 

THCICE  THCSNW  THCWTR 

DENAIR  calls: 

VIRIAL 
VIRIAL  calls: 

XTERP 

DENWTR  calls:  none 
SPHAIR  calls:  none 
SPHICE  calls: 

XTERP 
SPHWTR  calls: 

XTERP 

THCAIR  calls:  none 
THCICE  calls: 

XTERP 

THCSNW  calls:  none 
THCWTR  calls: 

XTERP 
INDXBK  calls: 

GBLBCK 
GBLBCK  calls: 

AIRTMP  RDGBL  RDSCN 

RDGBL  calls: 

lOERR  SEAICE 

SEAICE  calls:  none 
RDSCN  calls: 

CITIES  IBKCNV  lOERR 

CITIES  calls:  none 
IBKCNV  calls:  none 
OPNSCR  calls: 


lOERR 
PRCALC  calls: 


ATMPRN 

BCKGND 

BCKPRN 

BNDPAR 

BNTPTH 

COUPLE 

DISPRN 

DPLDT 

FILTER 

INDXBK 

INTEG 

lOERR 

KDISTR 

MLSCAT 

PLANCK 

PLMSUB 

PTHOSB 

PTHTAU 

RESOLV 

RSHINE 

SCINTL 

S LUNAR 

SMPCAL 

SOLAR 

SOLRAD 

TERMPR 

XPNDAR 

ZROINT 

ATMPRN 

calls : 

INDXBK 

lOERR 

PRALT 

RELHUM 

SETBCK 

PRALT  calls: 

IBNSRC 

SETBCK 

calls : 

INTR2D 

MODBCK 

INTR2D 

calls : 

none 

MODBCK 

calls : 

none 

BCKGND 

calls : 

BDRF 

DEMSXX 

EMTREF 

EXGALS 

FRESNL 

GALRAD 

INDEX I 

INDEXW 

PLANCK 

REFEST 

SETBCK 

SLUNAR 

SOLAR 

STARAD 

XTERP 

ZODICL 

BDRF  calls: 

DIREFL 

SHADOW 

DIREFL 

calls : 

none 
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SHADOW  calls: 

DERF 


DERF  calls:  none 
DEMSXX  calls: 

DIREMS 

EMTREF 

DIREMS  calls: 

EHBSLO 

FRESNL 

EHBSLO  calls: 

POLY 

POLY  calls:  none 
FRESNL  calls :  none 
SEAWTR  calls:  none 
SOIL  calls:  none 

EXGALS  calls: 

PLANCK 

XTERP 

GALRAD  calls: 

PLANCK 

REFEST  calls:  none 
SLUNAR  calls: 

SOLAR 

XTERP 

SOLAR  calls: 

EVEN 

EVEN  calls:  none 
STARAD  calls: 

PLANCK 

ZODICL  calls: 

DBANDS 

EMISSV 

DBANDS  calls: 

PLANCK 

SOLAR 

ZLAT  calls:  none 
EMISSV  calls: 

PLANCK 

SOLAR 

GETGLC  calls :  none 
BCKPRN  calls: 

lOERR 

BNDPAR  calls : 

AMOLSC 

BMOD 

XTERP 

AMOLSC  calls: 

DEPOL 

REFRAC 

DEPOL  calls: 

XTERP 

BMOD  calls: 

ABCCL4 

ABHN04 

ABSMOL 

ABSN2 

ABSS02 

AH202 

PARTIT 

PROFAC 

ABCCL4  calls: 

XTERP 

ABHN04  calls: 

XTERP 

ABN205  calls: 

XTERP 

ABSCFC  calls: 

XTERP 
ABSCLO  calls: 

XTERP 

ABSH20  calls:  none 
ABSMOL  calls: 

lOERR 

ABSN2  calls :  none 
ABSN20  calls:  none 
ABSN02  calls:  none 
ABS02  calls: 

XTERP 


INDEXI  INDEXW 

PLANCK 


EPHTIM  GETGLC 

ZLAT 


PHFUNC  PHMLSC 


ABN205  ABSCFC 
ABSN20  ABSN02 
AMMNIA  EVEN 
RADFLD 


SEAWTR 


RAINSP 


ABSCLO 

ABS02 

H20CNT 


SOIL 


SNOWS P 


ABSH20 

ABS03 

02CNT 
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ABS03  calls:  none 


ABSS02  calls: 
AH202  calls: 

XTERP 

none 

AMMNIA  calls : 

none 

H20CNT  calls: 

none 

02CNT  calls:  none 

RADFLD  calls: 
PHFUNC  calls: 

none 

CSPHFN 

PHYDRO 

CSPHFN  calls: 
PHYDRO  calls: 

none 

CSPHFN 
PHMLSC  calls: 

DEPOL 
RAINSP  calls: 

PROFAC 

PROFAC 
SNOWSP  calls: 

PROFAC 

XTERP 

BNTPTH  calls: 
COUPLE  calls: 

none 

BCKGND 
INICPL  calls: 

INICPL 

BETA 

BETAU 

ESFIT  calls:  none 
DISPRN  calls: 

lOERR 

DPLDT  calls:  none 
FILTER  calls: 

XTERP 

INTEG  calls:  none 
KDISTR  calls:  none 
MLSCAT  calls: 

BETAU  RADTRY 

RADTRY  calls:  none 
PLMSUB  calls: 

COMFNC 

COMFNC  calls:  none 
PTHOSB  calls: 

RADTRX 

RADTRX  calls:  none 
PTHTAU  calls: 

BNTPTH  TRNSMT 

TRNSMT  calls: 

BAND 

BAND  calls: 


RESOLV 

DERF 
calls : 

DVINCR 

DVINCR 
calls:  none 

RSHINE 

calls : 

BCKGND 

BNTPTH 

SOLRAD 

TERMPR 

SOLRAD 

calls : 

PTHTAU 

RADTRY 

TERMPR 

calls : 

SCINTL 

SHADOW 
calls : 

PROFAC 

XTERP 

SMPCAL 

calls : 

XPNDAR 

PTHTAU 
calls : 

ZROINT 

XTERP 

calls:  none 

PROFAC 

XTERP 


PROFAC  XTERP 

ESFIT  SRTLAY  UDLAY 


lOERR  MLSCAT  PTHTAU 

XTERP 


RADTRX 
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PUTHDR 

calls : 

lOERR 

PRTHDR 

PRTHDR 

calls : 

lOERR 

SCNRIO 

calls : 
CALEND 

DEFBCK 

ECLGAL 

EQUECL 

HORIZN 

INTR2D 

RAYPTH 

SHNGEO 

CALEND 

calls : 

none 

DEFBCK 

calls : 
BCKCHK 

INDXBK 

SETBCK 

SPTRIG 

BCKCHK 

calls : 

none 

ECLGAL 

calls : 

none 

EQUECL 

calls : 

none 

HOREQU 

calls : 

none 

SHNGEO 

calls : 
HOREQU 

INTR2D 

RAYPTH 

SPTRIG 

TURBUL 

calls : 

none 

SRCFLX 

calls : 

none 

SRCGEO 

calls : 

GEOM 

HORIZN 

INTR2D 

SPTRIG 

SRCIRR 

calls : 
ASPECT 

CALEND 

ECLGAL 

EQUECL 

INDXBK 

SPTRIG 

INTR2D 

lOERR 

RAYPTH 

ASPECT 

calls : 
GETGLC 

SETUP  calls:  none 

SUMFIL 

calls : 
CHTIME 

lOERR 

LENSTR 

PUTCLD 

CHTIME 

calls : 

none 

LENSTR 

calls : 

none 

PUTCLD 

calls : 

lOERR 

PUTSLR 

calls : 

lOERR 

SLRCNT 

CNSTNT 

calls : 

ADD 

DADD 

DDIV 

DIV 

MUL 

SUB 

ADD  calls:  none 
DADD  calls:  none 
DDIV  calls:  none 
DIV  calls:  none 
DMUL  calls:  none 
DSUB  calls:  none 
MUL  calls:  none 
SUB  calls:  none 
CONFIG  calls:  none 
DBINIT  calls: 

lOERR 
EQUABS  calls: 

AERSOL  CHANGE  CLDALT  EQABS 

HLOWT  HYDROM  lOERR  ISTAER 

SKYNOI  STRCN2  VISRH  XTERP 

CHANGE  calls: 

XTERP 
CLDALT  calls: 

RDGBL  TMPCLD 

TMPCLD  calls :  none 
HEYNS  calls:  none 
NXXPAU  calls: 

IBNSRC  PROFAC  XTERP 

SETALT  calls: 

XTERP 
SKYNOI  calls: 

REFRAC 


GEOM 

SPTRIG 


HOREQU 

SETUP 


PUTSLR 


DMUL 


HAZE 

NXXPAU 


HOREQU 

TURBUL 


HORIZN 

SHNGEO 


DSUB 


HEYMS 

SETALT 


VISRH  calls:  none 
INITL  calls: 


BEAUFT 

BINFIL 

CALEND 

CIRRUS 

DEFALT 

DFLT2 

DFLT8 

EXOATM 

EXOTMP 

FILOPN 

FILRT 

GBLBCK 

GETASP 

GETATM 

GETBCK 

GETCLD 

GETEXO 

GETPOS 

GETSLR 

GETVAR 

GETVEC 

lOERR 

ISRAEL 

LWCASE 

MDLATM 

MIEINP 

PARSE 

RDLINE 

SATUR 

SETFLG 

STGEOM 

UPCASE 

USRDEF 

VSA 

ZROHDR 

BEAUFT  calls:  none 

BINFIL  calls: 

CHKRST 

CHKVER 

DISEND 

FLSTAT 

lOERR 

RDLINE 

UPCASE 
CHKRST  calls: 


lOERR 
CHKVER  calls: 

lOERR 
DISEND  calls: 

lOERR 
FLSTAT  calls: 

lOERR  UPCASE 

UPCASE  calls:  none 
RDLINE  calls: 

lOERR  LCTRIM  LENSTR 

LCTRIM  calls:  none 
CIRRUS  calls:  none 
DEFALT  calls: 

EXOATM  GBLBCK 

EXOATM  calls: 

XTERP 

DFLT2  calls: 

IDAERO  MDLATM 

IDAERO  calls:  none 
DFLT8  calls: 


DVINCR 

GETVEC 

RDLINE 

UPCASE 

GETVEC 

calls : 

lOERR 

LCTRIM 

LENSTR 

EXOTMP 

calls:  none 

FILOPN 

calls : 

lOERR 

RDLINE 

UPCASE 

FILRT  calls: 

LCTRIM 

GETASP 

calls : 

GETVEC 

IGTINT 

RDLINE 

UPCASE 

IGTINT 

calls : 

lOERR 

GETATM 

calls : 

GETVAR 

IGTINT 

IGTVEC 

LWCASE 

MRNDFL 

NCHAER 

NCHATM 

NCHAZE 

NCHSEA 

RDLINE 

UPCASE 

GETVAR 

calls : 

lOERR 

IGTVEC 

calls : 

lOERR 

LCTRIM 

LENSTR 

LWCASE 

calls:  none 

MRNDFL 

calls:  none 

NCHAER 

calls : 

LCTRIM 

UPCASE 

NCHATM 

calls : 

LCTRIM 

UPCASE 

NCHAZE 

calls : 

LCTRIM 

UPCASE 

NCHSEA 

calls : 

LCTRIM 

UPCASE 

GETBCK 

calls : 

GETVAR 

GETVEC 

IGTINT 

RDLINE 

UPCASE 

USRBCK 
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USRBCK 

calls : 
GETVAR 

GETVEC 

IGTINT 

IGTVEC 

lOERR 

PARSE 

RDLINE 

UPCASE 

PARSE  calls : 

LCTRIM 

LENSTR 

GETCLD 

calls : 
GETVAR 

IGTINT 

RDLINE 

UPCASE 

USRCLD 

USRCLD 

calls : 
GETVAR 

IGTINT 

lOERR 

PARSE 

RDLINE 

UPCASE 

GETEXO 

GETPOS 

calls : 
GETVAR 
calls : 

IGTINT 

PARSE 

RDLINE 

UPCASE 

MONTH 

CALEND 

CHTIME 

GETVAR 

IGTINT 

LWCASE 

RDLINE 

UPCASE 

MONTH  calls: 

LCTRIM 

UPCASE 

GETSLR 

calls : 
GETVAR 

RDLINE 

SPTRIG 

UPCASE 

ISRAEL 

calls : 

none 

MIEINP 

calls : 
GETVAR 

GETVEC 

IGTINT 

lOERR 

LWCASE 

PARSE 

RDLINE 

UPCASE 

SETFLG 

calls : 

none 

STGEOM 

calls : 
GETVAR 

IGTINT 

LWCASE 

UPCASE 

USRDEF 

calls : 
GBLBCK 

GETVAR 

IGTINT 

lOERR 

LWCASE 

MDLATM 

PARSE 

RDLINE 

UPCASE 

XMCONV 

XTERP 

XMCONV 

calls : 

SATUR 

XTERP 

VSA  calls:  none 

ZROHDR 

calls : 

none 

PROMPT 

calls : 

none 

RDFLTR 

calls : 
GETVAR 

lOERR 

LCTRIM 

LENSTR 

LWCASE 

PARSE 

RDLINE 

UPCASE 

TITLCR  calls: 

FDATE 

FDATE  calls:  none 


7.1.2  MQSART  Cross-Reference  List 


ABCCL4  called  by: 
BMOD 

ABHN04  called  by: 
BMOD 

ABN205  called  by: 
BMOD 

ABSCFC  called  by: 
BMOD 

ABSCLO  called  by: 
BMOD 

ABSH20  called  by: 
BMOD 

ABSMOL  called  by: 
BMOD 

ABSN2  called  by: 

BMOD 

ABSN20  called  by: 
BMOD 

ABSN02  called  by: 
BMOD 

ABS02  called  by: 

BMOD 
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ABS03  called  by: 

BMOD 

ABSS02  called  by: 

BMOD 

ADD  called  by: 

CNSTNT 

AECALC  called  by: 

BRBNDR 

AERSOL  called  by: 

ENDPT  EQUABS  TANGPT 

AH202  called  by: 

BMOD 

AIRTMP  called  by: 

BRBNDR  GBLBCK 

AMMNIA  called  by: 

BMOD 

AMOLSC  called  by: 

BNDPAR 

ARSABD  called  by: 


AERSOL 

HYDROM 

MARINE 

ARSLBD 

called 

AERSOL 

by: 

BBARSL 

BNDPAR 

HYDROM 

MARINE 

PHFUNC 

PHYDRO 

PRCALC 

RSHINE 

ARSXBD 

called 

AERSOL 

by; 

HYDROM 

MARINE 

ASPECT 

called 

SRCIRR 

by: 

ATMPRN 

called 

PRCALC 

by: 

ATMSBD 

called 

ATMPRN 

by: 

BCKPRN 

BRBNDR 

CALCUL 

DFLT2 

EQABS 

EQUABS 

GBLBCK 

INITL 

PRCALC 

SCNRIO 

SETALT 

SETBCK 

SHNGEO 

SRCGEO 

SRCIRR 

USRDEF 

BAND  called  by; 

TRNSMT 

BBARSL  called  by: 

BRBNDR 

BB03  called  by: 

SOLBND 

BCKCHK  called  by: 

DEFBCK 

BCKGND  called  by: 

COUPLE  PRCALC  RSHINE 

BCKPRN  called  by: 

PRCALC 

BDRF  called  by : 

BCKGND 

BEAUFT  called  by: 

INITL 

BETA  called  by: 

CLDLYR  INICPL  SRTLAY 

BETAU  called  by: 

CLDLYR  INICPL  MLSCAT 

BINFIL  called  by; 

INITL 

BKGDBD  called  by: 

ATMPRN  BCKGND  BRBNDR  COUPLE  GETBCK  INITL 

SETBCK  SPCLYR  USRBCK 

BKSTBD  called  by: 

AERSOL  PHFUNC 

BMOD  called  by: 

BNDPAR 

BNDMLG  called  by: 

EQABS 
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BNDPAR  called  by: 

PRCALC 

BNTPTH  called  by: 

PRCALC  PTHTAU  RSHINE 

BRBNBD  called  by: 

CLDLYR  FLUXLW  SOLBND  TRANLW 

BRBNDR  called  by; 

CALCUL 

CALCUL  called  by: 

MOSART 

CALEND  called  by: 

GETPOS  INITL  SCNRIO  SRCIRR 

CFCBD  called  by: 

ABSCFC 

CHANGE  called  by: 

EQUABS 

CHKRST  called  by: 

BINFIL 

CHKVER  called  by: 

BINFIL 

CHRCBD  called  by: 

ATMPRN  BRBNDR  EQUABS  PUTCLD  SUMFIL 

CHTIME  called  by: 

GETPOS  SUMFIL 

CIREX  called  by: 

HYDROM 

CIRRBD  called  by: 

PHYDRO 

CIRRUS  called  by: 

INITL 

CITIES  called  by: 

RDSCN 

CLDALT  called  by: 

EQUABS 

CLDLYR  called  by: 

SOLBND 

CLDRBD  called  by: 

ENDPT  EQUABS  HYDROM  PUTCLD  RAINS P 

USRCLD 

CNSTNT  called  by: 

MOSART 

COAT  called  by: 

MIEPHS 

COMFNC  called  by: 

PLMSUB 

CONFIG  called  by: 

MOSART 

COUPLE  called  by: 

PRCALC 

CROSBD  called  by: 

ABCCL4  ABHN04  ABN205  ABSCLO 

CSPHFN  called  by: 

PHFUNC  PHYDRO 

DADD  called  by: 

CNSTNT 

DBANDS  called  by: 

ZODICL 

DBINIT  called  by; 

MOSART 

DDIF  called  by: 

SWAT 

DDIV  called  by: 

CNSTNT 

DEFALT  called  by: 

INITL 


USRBCK 


TANGPT 


DEFBCK  called  by: 

SCNRIO 

DEMSXX  called  by: 

BCKGND 

DENAIR  called  by: 

SPCLYR 

DENWTR  called  by: 

SPCLYR 

DEPOL  called  by: 

AMOLSC  PHMLSC 

DERF  called  by: 

BAND  SHADOW 

DESAER  called  by: 

AERSOL 

DEVCBD  called  by: 


ABSMOL 

ATMPRN 

BCKPRN 

BRBNDR 

CALCUL 

DBINIT 

DEFALT 

DFLT8 

EQUABS 

FILRT 

FLSTAT 

GBLBCK 

GETASP 

GETATM 

GETBCK 

GETCLD 

GETEXO 

GETPOS 

GETSLR 

INITL 

MIEINP 

MOSART 

PRCALC 

PUTCLD 

PUTHDR 

PUTSLR 

RDFLTR 

RDGBL 

RDSCN 

SUMFIL 

USRBCK 

USRCLD 

DFLT2  called  by: 

INITL 

DFLT8  called  by: 

INITL 

DIREFL  called  by: 

BDRF 

DIREMS  called  by: 

DEMSXX 

DISEND  called  by: 

BINFIL 

DISPRN  called  by: 

PRCALC 
DIV  called  by: 

CNSTNT 

DMUL  called  by: 

CNSTNT 

DNDR  called  by: 

MIEPHS 

DPLDT  called  by: 

PRCALC 

DSRTBD  called  by: 

DESAER 

DSUB  called  by: 

CNSTNT 

DVINCR  called  by: 

DFLT8  RESOLV 

ECLGAL  called  by: 

SCNRIO  SRCIRR 

ECOSBD  called  by: 

IBKCNV 

EHBSLO  called  by: 

DIREMS 

EMISBD  called  by: 

DEMSXX  SOIL 

EMISSV  called  by: 

ZODICL 

EMTREF  called  by; 

BCKGND  DEMSXX  MIEPHS 

ENDPT  called  by: 

GEOM 

EPHEML  called  by: 

EPHEMS 

EPHEMS  called  by: 

BRBNDR  MOSART 
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EPHTIM  called  by: 

EPHEMS  ZODICL 

EQABS  called  by: 

ENDPT  EQUABS  TANGPT 

EQUABS  called  by: 

MOSART 

EQUECL  called  by: 

SCITOIO  SRCIRR 

ESFIT  called  by: 

INICPL 

EVAPOR  called  by: 

SRFLUX 

EVEN  called  by: 

BMOD  SOLAR 

EXGALS  called  by: 

BCKGND 

EXMLBD  called  by: 

EQABS  USRDEF 

EXOATM  called  by: 

DEFALT  INITL 

EXOTMP  called  by: 

INITL 

FDATE  called  by: 

TITLCR 

FILOPN  called  by: 

INITL 

FILRT  called  by: 

INITL 

FILTER  called  by: 

PRCALC 

FLSTAT  called  by: 

BINFIL 

FLUXLW  called  by: 

BRBNDR 

FRESNL  called  by: 

BCKGND  DIREMS 

GALRAD  called  by: 

BCKGND 
GAM  called  by: 

SWAT 

GAMMLN  called  by: 

DNDR 

GBLBCK  called  by: 

DEFALT  INDXBK  INITL  USRDEF 

GEOM  called  by: 

SCNRIO  SLPOS  SRCGEO 

GERROR  called  by: 
lOERR 

GETASP  called  by: 

INITL 

GETATM  called  by: 

INITL 

GETBCK  called  by: 

INITL 

GETCLD  called  by: 

INITL 

GETEXO  called  by: 

INITL 

GETGLC  called  by: 

ASPECT  ZODICL 

GETPOS  called  by: 

INITL 

GETSLR  called  by: 

INITL 
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GETVAR  called  by: 


GETATM 

GETBCK 

GETCLD 

INITL 

MIEINP 

RDFLTR 

USRDEF 

GETVEC  called  by: 
DFLT8 

GETASP 

GETBCK 

GLCFBD  called  by: 
GETGLC 

H20BD  called  by: 
H20CNT 

H20CNT  called  by: 
BMOD 

HAZE  called  by: 

ENDPT 

EQUABS 

TANGPT 

HAZEBD  called  by: 
HAZE 

HEYMS  called  by: 
EQUABS 

HLOWT  called  by: 
EQUABS 

HAZE 

ISTAER 

HOREQU  called  by: 
SCNRIO 

SHNGEO 

SRCIRR 

HORIZN  called  by: 
SCNRIO 

SLPOS 

SRCGEO 

HTBLNC  called  by: 
BRBNDR 

HYDROM  called  by: 
ENDPT 

EQUABS 

TANGPT 

IBKCNV  called  by: 
RDSCN 

IBNSRC  called  by: 
BNDPAR 

NXXPAU 

PRALT 

ICEBD  called  by: 
INDEXI 

IDAERO  called  by: 
DFLT2 

IGTINT  called  by: 
GETASP 

GETATM 

GETBCK 

MIEINP 

STGEOM 

USRBCK 

IGTVEC  called  by: 
GETATM 

USRBCK 

INDEXI  called  by: 
BCKGND 

DEMSXX 

MIEPHS 

INDEXW  called  by: 
BCKGND 

DEMSXX 

MIEPHS 

INDXBK  called  by: 
ATMPRN 

CALCUL 

DEFBCK 

INFLBD  called  by: 
RDFLTR 

INICPL  called  by: 
COUPLE 

INIGEO  called  by: 
GEOM 

INITL  called  by: 
MOSART 

INPTBD  called  by: 
INITL 

INTEG  called  by: 
PRCALC 

INTR2D  called  by: 
SCNRIO 

SETBCK 

SHNGEO 

GETEXO  GETPOS  GETSLR 

STGEOM  USRBCK  USRCLD 

INITL  MIEINP  USRBCK 


SRCIRR 

PROFAC  XTERP 

GETCLD  GETEXO  GETPOS 

USRCLD  USRDEF 

PRCALC  SRCIRR 


SRCGEO  SRCIRR 
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lOERR  called  by: 

CALCUL 

ABSMOL 

ATMPRN 

BCKPRN 

BINFIL 

BRBNDR 

CHKRST 

CHKVER 

DBINIT 

DISEND 

DISPRN 

EQUABS 

FILOPN 

FLSTAT 

GETVAR 

GETVEC 

IGTINT 

IGTVEC 

INITL 

MIEINP 

MOSART 

OPNSCR 

PRCALC 

PRTHDR 

PUTCLD 

PUTHDR 

PUTSLR 

RDFLTR 

RDGBL 

RDLINE 

RDSCN 

USRDEF 

RSHINE 

SRCIRR 

SUMFIL 

USRBCK 

USRCLD 

ISRAEL 

called 

by: 

INITL 

ISTAER 

called 

by: 

ENDPT 

EQUABS 

TANGPT 

KDISTR 

called 

PRCALC 

by: 

LAGRBD 

called 

by: 

ESFIT 

LAYLW  called  by: 

OPATH 

LCTRIM 

called 

by: 

NCHATM 

FILRT 

GETVEC 

IGTVEC 

MONTH 

NCHAER 

NCHAZE 

NCHSEA 

PARSE 

RDFLTR 

RDLINE 

LENSTR 

called 

GETVEC 

by: 

IGTVEC 

PARSE 

RDFLTR 

RDLINE 

SUMFIL 

LUNPBD 

called 

EPHEML 

by: 

LWCASE 

called 

GETATM 

USRDEF 

by: 

GETPOS 

INITL 

MIEINP 

RDFLTR 

STGEOM 

MARINE 

called 

AERSOL 

by: 

MARNBD 

called 

MARINE 

by: 

MDLATM 

called 

by: 

DFLT2 

EQABS 

INITL 

USRDEF 

MIE  called  by 

MIEPHS 

MIEINP 

called 

by: 

INITL 

MIEPHS 

called 

AERSOL 

by: 

MLSCAT 

called 

PRCALC 

by: 

RSHINE 

MODBCK 

called 

SETBCK 

by: 

MOLPBD 

called 

by: 

EQABS 

BMOD 

BNDPAR 

BRBNDR 

DENAIR 

ENDPT 

EQUABS 

PARTIT 

PLMSUB 

PRCALC 

PRETEM 

PUTHDR 

SCNRIO 

TANGPT 

XMCONV 

MONTH  called  by: 

GETPOS 

MOSART  not  called 
MRNDFL  called  by: 

GETATM 
MUL  called  by: 

CNSTNT 

NCHAER  called  by: 

GETATM 

NCHATM  called  by: 

GETATM 

NCHAZE  called  by: 

GETATM 

NCHSEA  called  by: 

GETATM 

NCYCLE  called  by: 

COAT  MIE 
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N02BD  called  by: 

ABSN02 

NXXPAU  called  by: 

EQUABS 

02CBD  called  by: 

02CNT 

02CNT  called  by: 

BMOD 

02UVBD  called  by: 

ABS02 

03CWBD  called  by: 

ABS03 

03HHBD  called  by: 

ABS03 

OCNTBD  called  by: 

SEATMP 

OPATH  called  by: 

BRBNDR 

OPNSCR  called  by: 

BNDPAR  CALCUL 

PARSE  called  by: 

GETEXO  INITL  MIEINP  RDFLTR  USRBCK 

USRDEF 

PARTIT  called  by: 

BMOD  EQABS 

PFR  called  by: 

REFRAC 

PHFGBD  called  by: 

PHFUNC 

PHFUNC  called  by: 

BNDPAR 

PHHYBD  called  by: 

PHYDRO 

PHMABD  called  by: 

PHFUNC 

PHMLSC  called  by: 

BNDPAR 

PHOCBD  called  by: 

PHFUNC 

PHRUBD  called  by: 

PHFUNC 

PHSTBD  called  by: 

PHFUNC 

PHTRBD  called  by: 

PHFUNC 

PHURBD  called  by: 

PHFUNC 

PHYDRO  called  by: 

PHFUNC 

PLANCK  called  by: 

AECALC  BBARSL  BCKGND  DBANDS  DIREMS 

EXGALS  GALRAD  PRCALC  STARAD 

PLANET  called  by: 

EPHEMS 

PLMSUB  called  by: 

PRCALC 

POLY  called  by: 

EHBSLO 

PRALT  called  by: 

ATMPRN 

PRCALC  called  by: 

CALCUL 

PRETEM  called  by: 

BRBNDR 


USRCLD 


EMISSV 
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PROFAC  called  by: 

AERSOL  BMOD  COUPLE  HYDROM  MARINE  MIEPHS 

NXXPAU  PHFUNC  PHYDRO  RAINSP  SCINTL  SNOWSP 

PROMPT  called  by: 

MOSART 

PRTHDR  called  by: 

PUTHDR 

PTHOSB  called  by: 

PRCALC 

PTHTAU  called  by: 

PRCALC  RSHINE  SMPCAL  SOLRAD 

PUTCLD  called  by: 

SUMFIL 

PUTHDR  called  by: 

CALCUL 

PUTSLR  called  by: 

SUMFIL 
RAB  called  by: 

SWAT 

RADFLD  called  by: 

BMOD 

RADTRX  called  by: 

PTHOSB  RSHINE 

RADTRY  called  by: 

MLSCAT  SOLRAD 

RAINBD  called  by: 

RAINEX  RAINSP  SNOWSP 

RAINEX  called  by: 

HYDROM 

RAINSP  called  by: 

BNDPAR 

RAYPTH  called  by: 

GEOM  HORIZN  SCNRIO  SHNGEO  SRCIRR 

RBE  called  by: 

SWAT 

RDFLTR  called  by: 

MOSART 

RDGBL  called  by: 

CLDALT  GBLBCK 

RDLINE  called  by: 

BINFIL  DFLT8  FILOPN  GETASP  GETATM  GETBCK 

GETCLD  GETEXO  GETPOS  GETSLR  INITL  MIEINP 

RDFLTR  USRBCK  USRCLD  USRDEF 

RDSCN  called  by: 

GBLBCK 

REFEST  called  by: 

BCKGND 

REFRAC  called  by: 

AMOLSC  EQABS  SKYNOI  STRCN2 

REFRBD  called  by: 

REFRAC 

RELHUM  called  by: 

ATMPRN  EQABS 

RESOLV  called  by: 

CALCUL  PRCALC 

RSHINE  called  by: 

PRCALC 

SATUR  called  by: 


BRBNDR 

EQABS 

HYDROM 

INITL 

OPATH 

RELHUM 

SRFLUX 

XMCONV 

SCENBD  called  by: 

ATMPRN 

SETBCK 

TERMPR 

USRBCK 

SCINTL  called  by: 

PRCALC 
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SCNRIO  called  by; 

CALCUL 

SEAICE  called  by: 

RDGBL 

SEATMP  called  by: 

BRBNDR 

SEAWTR  called  by: 

DEMSXX 

SETALT  called  by: 

EQUABS 

SETBCK  called  by: 

ATMPRN  BCKGND  CALCUL  DEFBCK 

SETFLG  called  by: 

INITL 

SETUP  called  by: 

SRCIRR 

SHADOW  called  by: 

BDRF  TERMPR 

SHNGEO  called  by: 

SCNRIO  SRCIRR 

SICEBD  called  by: 

SEAICE 

SKYNOI  called  by: 

EQUABS 

SLPOS  called  by: 

EPHEMS  MOSART 

SLRIBD  called  by: 

SLRCNT  SOLAR 

SLR2BD  called  by: 

SOLAR 

SLR3BD  called  by: 

SOLAR 

SLR4BD  called  by: 

SOLAR 

SLR5BD  called  by: 

SOLAR 

SLRCNT  called  by: 

BRBNDR  PUTSLR 

SLUNAR  called  by: 

BCKGND  PRCALC 

SMPCAL  called  by: 

PRCALC 

SNOWBD  called  by: 

SNOWEX 

SNOWEX  called  by: 

HYDROM 

SNOWSP  called  by: 

BNDPAR 

S02BD  called  by: 

ABSS02 

SOIL  called  by: 

DEMSXX 

SOLAR  called  by: 

BCKGND  DBANDS  EMISSV  PRCALC  SLUNAR 

SOLBND  called  by: 

BRBNDR 

SOLRAD  called  by: 

PRCALC  RSHINE 

SPCLYR  called  by: 

BRBNDR 

SPHAIR  called  by: 

SPCLYR 

SPHICE  called  by: 

SPCLYR 
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SPHWTR  called  by: 

SPCLYR 

SPTRIG  called  by:  ^  ^ 

DEFBCK  EPHEMS  GETSLR  SCNRIO  SHNGEO  SRCGEO 

SRCIRR 

^  SRAT  called  by: 

SOLBND 

SRCFLX  called  by: 

CALCUL 

SRCGEO  called  by: 

^  CALCUL 

SRCIRR  called  by: 

CALCUL 

SRFLUX  called  by: 

HTBLNC 

SRTLAY  called  by: 

INICPL  SOLBND 

STARAD  called  by: 

BCKGND 

STGEOM  called  by: 

INITL 

STMLBD  called  by: 

EQABS  USRDEF 

STRCN2  called  by: 

ENDPT  EQUABS  TANGPT 

SUB  called  by: 

CNSTNT 

SUMFIL  called  by: 

CALCUL 

SUPK  called  by: 

REFRAC 

SWAT  called  by: 

SOLBND 

TANGPT  called  by: 

RAYPTH 

TERMPR  called  by: 

PRCALC  RSHINE 

THCAIR  called  by: 

SPCLYR 

THCICE  called  by: 

SPCLYR 

THCSNW  called  by: 

SPCLYR 

THCWTR  called  by: 

SPCLYR 

TITLCR  called  by: 

MOSART 

TMPCLD  called  by: 

CLDALT 

TRANLW  called  by: 

OPATH 

TRNSMT  called  by: 

PTHTAU 

TURBUL  called  by: 

SCNRIO 

w  UDIF  called  by: 

SWAT 

UDLAY  called  by: 

INICPL  SOLBND 

UFTPBD  called  by: 

ABSMOL 
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UPCASE  called  by: 


BINFIL 

■ 

DFLT8 

FILOPN 

FLSTAT 

GETASP 

GETATM 

GETBCK 

GETCLD 

GETEXO 

GETPOS 

GETSLR 

INITL 

MIEINP 

MONTH 

NCHAER 

NCHATM 

NCHAZE 

NCHSEA 

RDFLTR 

STGEOM 

USRBCK 

USRCLD 

USRDEF 

UPPRBD 

called 

by: 

EQABS 

EXOATM 

SETALT 

USRBCK 

called 

GETBCK 

by: 

USRCLD 

called 

GETCLD 

by: 

USRDEF 

called 

by: 

INITL 

VIRIAL 

called 

DENAIR 

by: 

VIRLBD 

called 

VIRIAL 

by: 

VISRH  called  by: 

EQUABS 

VSA  called  by; 

INITL 

WTRBD  called  by: 

INDEXW 

XMCONV 

called  by: 

USRDEF 

XPNDAR 

called 

PRCALC 

by: 

XTERP  called  by: 

ABCCL4 

ABHN04 

ABN205 

ABSCFC 

ABSCLO 

ABS02 

AERSOL 

AH202 

BBARSL 

BCKGND 

BNDPAR 

BRBNDR 

CHANGE 

COUPLE 

DEPOL 

ENDPT 

EQABS 

EQUABS 

EVAPOR 

EXGALS 

EXOATM 

FILTER 

HAZE 

HYDROM 

INDEXI 

INDEXW 

NXXPAU 

PHYDRO 

RAINSP 

SCINTL 

SETALT 

S  LUNAR 

SOLRAD 

SPHICE 

SPHWTR 

STRCN2 

TANGPT 

XPNDAR 

THCICE 

THCWTR 

USRDEF 

VIRIAL 

XMCONV 

ZLAT  called  by: 

DBANDS 

ZODIBD 

called 

EMISSV 

by: 

ZOD2BD 

called 

DBANDS 

by: 

ZODICL 

ZODICL 

called 

BCKGND 

by: 

ZROHDR 

called 

by: 

INITL 

ZROINT 

called 

PRCALC 

by: 

7.1.3  MOSART  Pre-Requisite  Order  List 

MOSART 

TITLCR 

FDATE 

RDFLTR 

PROMPT 

INITL 

ZROHDR 

VSA 

USRDEF 

XMCONV 

STGEOM 

SETFLG 

MIEINP 

ISRAEL 

GETSLR 

GETPOS 

MONTH 

GETEXO 

GETCLD 

USRCLD 

GETBCK 

USRBCK 

PARSE 

GETATM 

NCHSEA 

NCHAZE 

NCHATM 

NCHAER 

MRNDFL 

LWCASE 

IGTVEC 

GETVAR 

GETASP 

IGTINT 

FILRT 

FILOPN 

EXOTMP 

DFLT8 

GETVEC 

DFLT2 

IDAERO 

DEFALT 

EXOATM 

CIRRUS 

BINFIL 

RDLINE 

LCTRIM 

FLSTAT 

UPCASE 

DISEND 

CHKVER 

CHKRST 

BEAUFT 

EQUABS 

VISRH 

SKYNOI 

SETALT 

NXXPAU 

HEYMS 

CLDALT 

TMPCLD 

CHANGE 

DBINIT 

CONFIG 

CNSTNT 

SUB 

MUL 

DSUB 

DMUL 

DIV 

DDIV 

DADD 

ADD 

CALCUL 

SUMFIL 

PUTSLR 

PUTCLD 

LENSTR 
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CHTIME 

SRCIRR 

SCNRIO 

TURBUL 

DEFBCK 

BCKCHK 

ZROINT 

XPNDAR 

SOLRAD 

PTHTAU 

RADTRY 

RESOLV 

COMFNC 

KDISTR 

COUPLE 

INICPL 

EMISSV 

DBANDS 

REFEST 

GALRAD 

DIREMS 

FRESNL 

DERF 

DIREFL 

PHFUNC 

PHYDRO 

H20CNT 

EVEN 

ABS02 

ABSN02 

ABSCLO 

ABSCFC 

DEPOL 

BCKPRN 

PRALT 

INDXBK 

RDGBL 

SEAICE 

THCSNW 

THCICE 

DENWTR 

DENAIR 

UDIF 

RBE 

SRAT 

CLDLYR 

SEATMP 

PRETEM 

GERROR 

HTBLNC 

SPTRIG 

SLPOS 

INIGEO 

ENDPT 

RAINEX 

CIREX 

SATUR 

REFRAC 

BNDMLG 

AERSOL 

EMTREF 

DNDR 

PROFAC 

DESAER 

XTERP 

IBNSRC 

7.1.4  MOSART  Common 


Coininon 

Block  DEVCNM 

used  in: 

DBINIT 

SUMFIL 

DEVCBD 

Common 

Block  DEVICE 

used  in: 

ABSMOL 

ATMPRN 

DEFALT 

DEVCBD 

GETATM 

GETBCK 

MIEINP 

MOSART 

RDFLTR 

RDGBL 

Common 

Block  FLAGS  used  in: 

ATMPRN 

BCKCHK 

EQABS 

HAZE 

PRCALC 

PUTSLR 

SUMFIL 

TERMPR 

Common 

Block  HEADER 

used  in: 

ATMPRN 

BCKGND 

COUPLE 

DEFALT 

GETASP 

GETATM 

INITL 

KDISTR 

PUTCLD 

PUTHDR 

SRCFLX 

SRCIRR 

Common 

Block  INITAL 

used  in: 

BBARSL 

BMOD 

ENDPT 

EPHEMS 

INIGEO 

INITL 

PTHOSB 

PUTHDR 

SHNGEO 

SOLBND 

SETUP 

ASPECT 

SRCGEO 

SHNGEO 

HOREQU 

EQUECL 

CALEND 

PUTHDR 

PRTHDR 

SMPCAL 

SCINTL 

RSHINE 

TRNSMT 

BAND 

BNTPTH 

DVINCR 

PTHOSB 

RADTRX 

INTEG 

FILTER 

DPLDT 

ESFIT 

BCKGND 

ZODICL 

ZLAT 

STARAD 

SLUNAR 

EXGALS 

DEMSXX 

SOIL 

EHBSLO 

POLY 

BDRF 

BNDPAR 

SNOWS P 

RAINSP 

CSPHFN 

BMOD 

RADFLD 

AMMNIA 

AH202 

ABSS02 

ABSN20 

ABSN2 

ABSMOL 

ABN205 

ABHN04 

ABCCL4 

ATMPRN 

SETBCK 

MODBCK 

GBLBCK 

RDSCN 

IBKCNV 

OPNSCR 

BRBNDR 

SPCLYR 

THCAIR 

SPHWTR 

SPHICE 

VIRIAL 

SOLBND 

UDLAY 

RAB 

GAM 

DDIF 

BETAU 

BETA 

BB03 

OPATH 

TRANLW 

LAYLW 

SRFLUX 

EVAPOR 

FLUXLW 

HORIZN 

GEOM 

RAYPTH 

STRCN2 

ISTAER 

HYDROM 

HAZE 

HLOWT 

EQABS 

SUPK 

PFR 

PARTIT 

MIEPHS 

MIE 

INDEXW 

GAMMLN 

COAT 

NCYCLE 

PLANET 

EPHTIM 

EPHEML 

AIRTMP 

AECALC 

PLANCK 

Block  Cross-Reference  List 

FILRT 

MOSART 

RDGBL 

BCKPRN 

BRBNDR 

CALCUL 

DFLT8 

EQUABS 

FLSTAT 

GETCLD 

GETPOS 

GETSLR 

PRCALC 

PUTCLD 

PUTHDR 

RDSCN 

SUMFIL 

USRBCK 

BCKPRN 

BINFIL 

CALCUL 

INICPL 

INITL 

ISRAEL 

RSHINE 

SCNRIO 

SETFLG 

BCKPRN 

BNDPAR 

BRBNDR 

DEFBCK 

ENDPT 

EQABS 

GETBCK 

GETCLD 

INICPL 

MOSART 

PRCALC 

PRTHDR 

PUTSLR 

RSHINE 

SCNRIO 

SUMFIL 

TANGPT 

USRDEF 

BNDPAR 

BRBNDR 

CALCUL 

EQUABS 

GEOM 

HYDROM 

MOSART 

PLMSUB 

PRCALC 

RAYPTH 

RSHINE 

SCNRIO 

SRCGEO 

SRCIRR 

TANGPT 

SRCFLX 

ECLGAL 

PRCALC 

TERMPR 

MLSCAT 

PLMSUB 

DISPRN 

GETGLC 

SOLAR 

SEAWTR 

SHADOW 

PHMLSC 

02CNT 

ABS03 

ABSH20 

AMOLSC 

INTR2D 

CITIES 

THCWTR 

SPHAIR 

SWAT 

SRTLAY 

SLRCNT 

lOERR 

EPHEMS 

TANGPT 

SNOWEX 

RELHUM 

MDLATM 

INDEXI 

MARINE 

BBARSL 


RDSCN 


DBINIT 

GETASP 

INITL 

PUTSLR 

USRCLD 

EPHEMS 

MOSART 

SRCIRR 


CALCUL 

EQUABS 

INIGEO 

PTHOSB 

SETBCK 

ZROHDR 

COUPLE 

INICPL 

PRETEM 

SETALT 
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Common  Block  CRSECT 

used  in : 

ABCCL4 

ABHN04 

ABN205 

ABSCLO 

CROSBD 

Common  Block  CFCBM  used  in: 

ABSCFC 

CFCBD 

Common  Block  CONSTN 

used  in: 

ABSMOL 

AIRTMP 

AMOLSC 

ASPECT 

ATMPRN 

BAND 

BCKGND 

BCKPRN 

BDRF 

BETA 

BETAU 

BMOD 

BNDPAR 

BRBNDR 

CNSTNT 

COAT 

COMFNC 

COUPLE 

CSPHFN 

DBINIT 

DESAER 

DFLT2 

DFLT8 

DIREMS 

DNDR 

DPLDT 

ECLGAL 

ENDPT 

EPHEML 

EPHEMS 

EQABS 

EQUABS 

EQUECL 

ESFIT 

EXGALS 

EXOTMP 

FILTER 

FRESNL 

GALRAD 

GEOM 

GETSLR 

HOREQU 

HORIZN 

HTBLNC 

INICPL 

INIGEO 

INITL 

MARINE 

MIE 

MIEPHS 

MLSCAT 

MODBCK 

PHFUNC 

PHMLSC 

PHYDRO 

PLANCK 

PLANET 

PRCALC 

PRETEM 

PROFAC 

PTHOSB 

PTHTAU 

RADTRX 

RADTRY 

RAINEX 

REFEST 

RSHINE 

SATUR 

SCINTL 

SCNRIO 

SETALT 

SETUP 

SHADOW 

SHNGEO 

SKYNOI 

SLPOS 

SLUNAR 

SNOWEX 

SOLBND 

SPCLYR 

SPTRIG 

SRCGEO 

SRCIRR 

SRTLAY 

STARAD 

STGEOM 

STRCN2 

SUPK 

TERMPR 

UDLAY 

USRDEF 

XTERP 

ZLAT 

ZODICL 

Common  Block  MOLECP 

used  in: 

ABSMOL 

BBARSL 

BMOD 

BNDPAR 

DBINIT 

DFLT8 

DVINCR 

EMISSV 

ENDPT 

EQABS 

EQUABS 

KDISTR 

PLMSUB 

PRCALC 

PTHOSB 

PTHTAU 

PUTHDR 

SCNRIO 

SUMFIL 

TANGPT 

USRDEF 

Common  Block  UFTAPE 

used  in: 

ABSMOL 

UFTPBD 

Common  Block  N02XS  used  in: 

ABSN02 

N02BD 

Common  Block  HERZBG 

used  in: 

ABS02 

02UVBD 

Common  Block  SHURUN 

used  in: 

ABS02 

02UVBD 

Common  Block  03CWB  used  in: 

ABS03 

03CWBD 

Common  Block  03HHB  used  in: 

ABS03 

03HHBD 

Common  Block  S02XS  used  in: 

ABSS02 

S02BD 

Common  Block  AEROSL 

used  in: 

AERSOL 

ARSLBD 

BBARSL 

BNDPAR 

HYDROM 

MARINE 

PHFUNC 

PHYDRO 

PRCALC 

RSHINE 

Common  Block  AERSCA 

used  in: 

AERSOL 

BBARSL 

BNDPAR 

PHFUNC 

Common  Block  AERSLA 

used  in: 

AERSOL 

ARSABD 

HYDROM 

MARINE 

Common  Block  AERSLX 

used  in: 

AERSOL 

ARSXBD 

HYDROM 

MARINE 

Common  Block  AERUSR 

used  in: 

AERSOL 

PHFUNC 

Common  Block  BSTAER 

used  in: 

AERSOL 

BKSTBD 

PHFUNC 

Common  Block  USERDF 

used  in: 

ASPECT 

DEFALT 

EQABS 

GETASP 

HAZE 

ISTAER 

SETALT 

STRCN2 

USRDEF 

Common  Block  ATMDAT 

used  in: 

ATMPRN 

ATMSBD 

BCKPRN 

BRBNDR 

CALCUL 

DFLT2 

EQABS 

EQUABS 

INITL 

PRCALC 

SCNRIO 

SETALT 

SETBCK 

SHNGEO 

SRCGEO 

SRCIRR 

USRDEF 

Common  Block  BACKGD 

used  in: 

ATMPRN 

BCKGND 

BKGDBD 

BRBNDR 

COUPLE 

GETBCK 

INITL 

SETBCK 

SPCLYR 

USRBCK 
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Common  Block  CHRCNM  used  in: 
ATMPRN  BRBNDR 

USRBCK 

Common  Block  INTSTO  used  in: 

ATMPRN  DISPRN 

Common  Block  OUTPUT  used  in: 

ATMPRN  BCKPRN 

Common  Block  SCENES  used  in: 

ATMPRN  SCENBD 

Common  Block  BCKDAT  used  in: 
BCKPRN  DISPRN 

PUTHDR  SCNRIO 

Common  Block  RSTART  used  in: 

BINFIL  CALCUL 

Common  Block  MOLCON  used  in: 

BMOD  BNDPAR 

MOLPBD  PLMSUB 

TANGPT 

Common  Block  MOLDAT  used  in: 

BMOD  DENAIR 

Common  Block  PRBNDA  used  in: 

BMOD  BNDPAR 

PTHTAU 

Common  Block  PRBNDB  used  in: 

BMOD  BNDPAR 

Common  Block  AERSCC  used  in: 

BNDPAR  HYDROM 

Common  Block  ARSLSC  used  in: 
BNDPAR  INICPL 

RSHINE 

Common  Block  CGWTS  used  in: 

BNDPAR  PTHTAU 

Common  Block  CLDUSR  used  in: 

BNDPAR  HYDROM 

Common  Block  ANTECD  used  in: 

BRBNDR  DEFALT 

Common  Block  BRBNDT  used  in: 

BRBNDR  CALCUL 

Common  Block  LYRSTO  used  in: 
CALCUL  COUPLE 

RSHINE 

Common  Block  PATHl  used  in: 

CALCUL  PLMSUB 

Common  Block  PATHIA  used  in: 

CALCUL  PLMSUB 

Common  Block  PATH4  used  in: 

CALCUL  COUPLE 

Common  Block  PATH5A  used  in: 

CALCUL  DEFBCK 

Common  Block  PATH5B  used  in: 

CALCUL  PRCALC 

Common  Block  PATH5C  used  in: 

CALCUL  DEFBCK 

Common  Block  PATH5D  used  in: 

CALCUL  PRCALC 

Common  Block  PATHS  used  in: 

CALCUL  PRCALC 

Common  Block  PATHS  used  in: 

CALCUL  PRCALC 

Common  Block  CLDPAR  used  in: 

BRBNBD  CLDLYR 

Common  Block  MIECOT  used  in: 

COAT  MIE 

Common  Block  MSPARM  used  in: 
COUPLE  INICPL 


CHRCBD  EQUABS 


INTEG 

PRCALC 

BRBNDR 

EQUABS 

SETBCK 

TERMPR 

EQUABS 

ZROINT 

INTEG 

BRBNDR 

PRCALC 

ENDPT 

PRETEM 

EQABS 

MOLPBD 

INICPL 

KDISTR 

INICPL 

KDISTR 

MLSCAT 

PHFUNC 

PHYDRO 

USRCLD 

INITL 

SRCFLX 

INICPL 

MLSCAT 

PRCALC 

PTHOSB 

PRCALC 

SCNRIO 

PRCALC 

RSHINE 

PRCALC 

SCNRIO 

SCNRIO 

PRCALC 

SCNRIO 

SCNRIO 

FLUXLW 

MIEPHS 

PRCALC 


PUTCLD 

SUMFIL 

RSHINE 

ZROINT 

INITL 

USRBCK 

KDISTR 

PRCALC 

EQABS 

PUTHDR 

EQUABS 

SCNRIO 

PARTIT 

XMCONV 

PLMSUB 

PTHOSB 

PLMSUB 

PTHTAU 

PRCALC 

PTHOSB 

PRCALC  PTHOSB 

SCNRIO 


SCNRIO  SRCIRR 
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Common  Block  ZODBND  used  in: 

DBANDS  ZOD2BD 

Common  Block  CDRYDS  used  in: 

DEMSXX  EMISBD 

Common  Block  WETNES  used  in: 

DEMSXX  EMISBD 

Common  Block  DESDAT  used  in: 

DESAER  DSRTBD 

Common  Block  MATERL  used  in: 

DNDR  MIEINP  MIEPHS 

Common  Block  SILEMS  used  in: 

EMISSV  ZODIBD 

Common  Block  CLDRN  used  in: 


CLDRBD 

ENDPT 

EQUABS 

GETCLD 

HYDROM 

PUTCLD 

RAINS  P 

TANGPT 

USRCLD 

Common 

Block  PLMDAT 

used  in: 

ENDPT 

EQUABS 

PLMSUB 

TANGPT 

Common 

Block  VSADTA 

used  in: 

ENDPT 

EQABS 

EQUABS 

INITL 

TANGPT 

VSA 

Common  Block  PERLUN  used  in: 
EPHEML  LUNPBD 


Common  Block  EXTMOL  used  in: 

EQABS  EXMLBD  USRDEF 

Common  Block  STDMOL  used  in: 

EQABS  STMLBD  USRDEF 

Common  Block  UPRATM  used  in: 

EQABS  EXOATM  SETALT  UPPRBD 

Common  Block  LAGUER  used  in: 

ESFIT  LAGRBD 

Common  Block  FLTRDT  used  in: 

FILTER  RDFLTR 

Common  Block  MACHIN  used  in: 

DEVCBD  FLSTAT 

Common  Block  CLIMAT  used  in: 

FLUXLW  OPATH  PRETEM  SRAT 

Common  Block  OMATLW  used  in: 

FLUXLW  OPATH  SOLBND  TRANLW 

Common  Block  GAUSSL  used  in: 

GETGLC  GLCFBD 

Common  Block  CONTNS  used  in: 

H20BD  H20CNT 

Common  Block  HZDATA  used  in: 

HAZE  HAZEBD 

Common  Block  ECOCNV  used  in: 

ECOSBD  IBKCNV 

Common  Block  ICEREF  used  in: 

ICEBD  INDEXI 

Common  Block  INDXWR  used  in: 

INDEXW  WTRBD 

Common  Block  INPTDT  used  in: 

INITL  INPTBD 

Common  Block  KDISDT  used  in: 

KDISTR  PRCALC 

Common  Block  NAVMAR  used  in: 

MARINE  MARNBD 

Common  Block  02C  used  in: 

02CBD  02CNT 

Common  Block  PHFFOG  used  in: 

PHFGBD  PHFUNC 

Common  Block  PHFMAR  used  in: 

PHFUNC  PHMABD 

Common  Block  PHFOCE  used  in: 

PHFUNC  PHOCBD 

Common  Block  PHFRUR  used  in: 

PHFUNC  PHRUBD 
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Common  Block  PHFSTR  used  in: 

PHFUNC  PHSTBD 

Common  Block  PHFTRP  used  in: 

PHFUNC  PHTRBD 

Common  Block  PHFURB  used  in: 

PHFUNC  PHURBD 

Common  Block  CRASYM  used  in: 

CIRRBD  PHYDRO 

Common  Block  PHHYDR  used  in: 

PHHYBD  PHYDRO 

Common  Block  CURGDA  used  in: 

PRCALC  PTHTAU  RSHINE 

Common  Block  CURGDB  used  in: 

PRCALC  PTHTAU  RSHINE 

Common  Block  CURGDC  used  in: 

PRCALC  PTHOSB  PTHTAU 

Common  Block  OPTDEP  used  in: 

PRCALC  PTHTAU  RSHINE 

Common  Block  TRANSP  used  in: 

PRCALC  TRNSMT 

Common  Block  RAINTP  used  in: 

RAINBD  RAINEX  RAINSP 

Common  Block  RAINWL  used  in: 

RAINBD  RAINSP  SNOWSP 

Common  Block  INFLTR  used  in: 

INFLBD  RDFLTR 

Common  Block  MMWREF  used  in: 

REFRAC  REFRBD 

Common  Block  PATH2  used  in: 

RSHINE  SRCIRR 

Common  Block  PATH2A  used  in: 

RSHINE  SRCIRR 

Common  Block  PATH2B  used  in: 

RSHINE  SRCIRR 

Common  Block  PATH2C  used  in: 

RSHINE  SRCIRR 

Common  Block  PATH2D  used  in: 

RSHINE  SRCIRR 

Common  Block  SICEDT  used  in: 

SEAICE  SICEBD 

Common  Block  TMPOCN  used  in: 

OCNTBD  SEATMP 

Common  Block  SOLIRl  used  in: 

SLRIBD  SLRCNT  SOLAR 

Common  Block  SNWDAT  used  in: 

SNOWBD  SNOWEX 

Common  Block  SOLIR2  used  in: 

SLR2BD  SOLAR 

Common  Block  SOLIR3  used  in: 

SLR3BD  SOLAR 

Common  Block  SOLIR4  used  in: 

SLR4BD  SOLAR 

Common  Block  SOLIR5  used  in: 

SLR5BD  SOLAR 

Common  Block  SWPARM  used  in: 

BRBNBD  SOLBND 

Common  Block  USERNM  used  in: 

SUMFIL  USRDEF 

Common  Block  FLXTAB  used  in: 

BRBNBD  TRANLW 

Common  Block  VIRDAT  used  in: 

VIRIAL  VIRLBD 

Common  Block  ZPLANE  used  in: 

ZOD2BD  ZODICL 


RSHINE 
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Common  Block  ECOSYS  used  in: 
ECOSBD 

Common  Block  INPITOX  used  in: 
INPTBD 

7.2  ASCBIN 


ASCBIN  calls: 

CNSTNT  CONFIG  CONVAB  FILRT  lOERR  PROMPT 

SETFIL  TABLEA  TABLES  TABLEH  TABLET  UPCASE 

CNSTNT  calls: 

ADD  DADD  DDIV  DIV  DMUL  DSUB 

MUL  SUB 

ADD  calls:  none 
DADD  calls:  none 
DDIV  calls:  none 
DIV  calls :  none 
DMUL  calls:  none 
DSUB  calls:  none 
MUL  calls:  none 
SUB  calls:  none 
CONFIG  calls:  none 
CONVAB  calls: 

lOERR  SETFIL 

lOERR  calls: 

GERROR 

GERROR  calls:  none 
SETFIL  calls: 

lOERR 

FILRT  calls: 

LCTRIM 

LCTRIM  calls:  none 
PROMPT  calls:  none 
TABLEA  calls: 

FILTER  GETHDR  lOERR  PROMPT  RDFLTR  SLITFN 

UPCASE 
FILTER  calls: 

XTERP 

XTERP  calls: 

IBNSRC 

IBNSRC  calls:  none 
GETHDR  calls: 

lOERR 
RDFLTR  calls: 

GETVAR  lOERR  LCTRIM  LENSTR  LWCASE  PARSE 

RDLINE  UPCASE 

GETVAR  calls: 

lOERR 

LENSTR  calls:  none 
LWCASE  calls:  none 
PARSE  calls: 

LCTRIM  LENSTR 

RDLINE  calls: 

lOERR  LCTRIM  LENSTR 

UPCASE  calls:  none 
SLITFN  calls:  none 
TABLES  calls: 

FILTER  GETHDR  lOERR  PROMPT  RDFLTR  SLITFN 

UPCASE 
TABLEH  calls: 

GETHDR  lOERR  PROMPT 
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TABLET  calls: 

GETHDR 


lOERR 


PROMPT 


SLITFN 


7.2.2  ASCBIN  Cross-Reference  List 


ADD  called  by: 

CNSTNT 

ASCBIN  not  called 
CNSTNT  called  by: 

<  ASCBIN 

CONFIG  called  by: 

ASCBIN 

CONVAB  called  by: 

ASCBIN 

DADD  called  by: 

CNSTNT 

DDIV  called  by: 

CNSTNT 

DEVCBD  called  by: 

ASCBIN  FILRT  RDFLTR 

DIV  called  by: 

CNSTNT 

DMUL  called  by: 

CNSTNT 

DSUB  called  by: 

CNSTNT 

FILRT  called  by: 

ASCBIN 

FILTER  called  by: 

TABLEA  TABLES  TABLET 

GERROR  called  by: 
lOERR 

GETHDR  called  by: 

TABLEA  TABLES  TABLEH  TABLET 

GETVAR  called  by: 

RDFLTR 

IBNSRC  called  by: 

XTERP 

INFLBD  called  by: 

RDFLTR 

lOERR  called  by: 


ASCBIN 

SETFIL 

CONVAB 

TABLEA 

GETHDR 

TABLEB 

GETVAR 

TABLEH 

RDFLTR 

TABLET 

LCTRIM 

called 

FILRT 

by: 

PARSE 

RDFLTR 

RDLINE 

LENSTR 

called 

PARSE 

by: 

RDFLTR 

RDLINE 

LWCASE  called  by 
RDFLTR 


MOLNBD  called  by: 

TABLET 
MUL  called  by: 

CNSTNT 

PARSE  called  by: 

RDFLTR 

PROMPT  called  by: 

ASCBIN  TABLEA  TABLES  TABLEH  TABLET 

RDFLTR  called  by: 

TABLEA  TABLEB 

RDLINE  called  by: 

RDFLTR 

SETFIL  called  by: 

ASCBIN  CONVAB 


RDLINE 
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TABLEB 


TABLET 


SLITFN  called  by: 

TABLEA 
SUB  called  by: 

CNSTNT 

TABLEA  called  by: 

ASCBIN 

TABLEB  called  by: 

ASCBIN 

TABLEH  called  by: 

ASCBIN 

TABLET  called  by: 

ASCBIN 

UPCASE  called  by: 

ASCBIN  RDFLTR  TABLEA  TABLEB  TABLET 

XTERP  called  by: 

FILTER 

7.2.3  ASCBIN  Pre-Requisite  Order  List 


ASCBIN 

TABLET 

TABLEH 

TABLEB 

TABLEA 

SLITFN 

RDFLTR 

UPCASE 

RDLINE 

PARSE 

LENSTR 

LWCASE 

GETVAR 

PROMPT 

GETHDR 

FILTER 

XTERP 

IBNSRC 

FILRT 

LCTRIM 

CONVAB 

SETFIL 

lOERR 

GERROR 

CONFIG 

CNSTNT 

SUB 

MUL 

DSUB 

DMUL 

DIV 

DDIV 

DADD 

ADD 

7.2.4  ASCBIN  Common  Block  Cross-Reference  List 


Common  Block  DEVCNM  used  in: 

ASCBIN  DEVCBD  FILRT 

Common  Block  DEVICE  used  in: 

ASCBIN  DEVCBD  RDFLTR 

Common  Block  CONSTN  used  in: 

CNSTNT  FILTER  XTERP 

Common  Block  FLTRDT  used  in: 

FILTER  RDFLTR 

Common  Block  HEADER  used  in: 

GETHDR  TABLEA  TABLEB 

Common  Block  INFLTR  used  in: 

INFLBD  RDFLTR 

Common  Block  MOLNMX  used  in: 

MOLNBD  TABLET 

Common  Block  MACHIN  used  in: 

DEVCBD 


TABLEH 


TABLET 


7.3  BBTEMP 


7.3.1  BBTEMP  Subprogram  References 


BBTEMP  calls: 

CNSTNT  CONFIG 

lOERR  PROMPT 

CNSTNT  calls: 

ADD  DADD 

MUL  SUB 

ADD  calls:  none 
DADD  calls:  none 
DDIV  calls:  none 
DIV  calls:  none 
DMUL  calls:  none 
DSUB  calls:  none 
MUL  calls:  none 


FILRT 

RDFLTR 

DDIV 


FILTER 

SETFLG 

DIV 


GETHDR 

SUMFIL 

DMUL 


INVPLK 

DSUB 


0^ 


SUB  calls:  none 
CONFIG  calls:  none 
FILRT  calls: 

LCTRIM 

LCTRIM  calls:  none 
FILTER  calls: 

XTERP 

XTERP  calls: 

IBNSRC 

IBNSRC  calls:  none 
GETHDR  calls: 

lOERR 

lOERR  calls: 

GERROR 


GERROR 

calls : 

none 

INVPLK 

calls : 

none 

PROMPT 

calls : 

none 

RDFLTR 

calls : 

GETVAR 

lOERR 

LCTRIM 

RDLINE 

UPCASE 

GETVAR 

calls : 

lOERR 

LENSTR 

calls : 

none 

LWCASE 

calls : 

none 

PARSE  calls: 

LCTRIM 

LENSTR 

RDLINE 

calls : 

lOERR 

LCTRIM 

LENSTR 

UPCASE 

calls : 

none 

SETFLG 

calls : 

none 

SUMFIL 

calls : 

CHTIME 

lOERR 

LENSTR 

CHTIME 

calls : 

none 

PUTCLD 

calls : 

lOERR 

PUTSLR 

calls : 

lOERR 

SLRCNT 

SLRCNT 

calls : 

none 

7,3.2  BBTEMP  Cross-Reference  List 


LENSTR 


PUTCLD 


LWCASE 


PUTSLR 


ADD  called  by: 

CNSTNT 

BBTEMP  not  called 
CHRCBD  called  by: 

PUTCLD  SUMFIL 

CHTIME  called  by: 

SUMFIL 

CLDRBD  called  by: 

PUTCLD 

CNSTNT  called  by: 

BBTEMP 

CONFIG  called  by: 

BBTEMP 

DADD  called  by: 

CNSTNT 

DDIV  called  by: 

CNSTNT 

DEVCBD  called  by: 

BBTEMP  FILRT  PUTCLD  PUTSLR  RDFLTR 

DIV  called  by: 

CNSTNT 

DMUL  called  by: 

CNSTNT 


PARSE 


SUMFIL 
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DSUB  called  by: 
CNSTNT 

FILRT  called  by: 
BBTEMP 

FILTER  called  by: 
BBTEMP 

GERROR  called  by: 
lOERR 

GETHDR  called  by: 
BBTEMP 

GETVAR  called  by: 
RDFLTR 

IBNSRC  called  by: 
XTERP 

INFLBD  called  by: 
RDFLTR 

INVPLK  called  by: 
BBTEMP 

lOERR  called  by: 


BBTEMP 

GETHDR 

GETVAR 

PUTCLD 

PUTSLR 

RDFLTR 

RDLINE 

SUMFIL 

LCTRIM  called  by: 

FILRT 

PARSE 

RDFLTR 

RDLINE 

LENSTR  called  by: 

PARSE 

RDFLTR 

RDLINE 

SUMFIL 

LWCASE  called  by 
RDFLTR 


MUL  called  by: 

CNSTNT 

PARSE  called  by: 

RDFLTR 

PROMPT  called  by: 

BBTEMP 

PUTCLD  called  by: 

SUMFIL 

PUTSLR  called  by: 

SUMFIL 

RDFLTR  called  by: 

BBTEMP 

RDLINE  called  by: 

RDFLTR 

SETFLG  called  by: 

BBTEMP 

SLRIBD  called  by: 

SLRCNT 

SLRCNT  called  by: 

PUTSLR 
SUB  called  by: 

CNSTNT 

SUMFIL  called  by: 

BBTEMP 

UPCASE  called  by: 

RDFLTR 

XTERP  called  by: 

FILTER 

7.3.3  BBTEMP  Pre-Requisite  Order  List 


BBTEMP 

SUMFIL 

PUTSLR 

SLRCNT 

PUTCLD 

CHTIME 

SETFLG 

RDFLTR 

UPCASE 

RDLINE 

PARSE 

LENSTR 

LWCASE 

GETVAR 

PROMPT 

INVPLK 

GETHDR 

lOERR 

GERROR 

FILTER 

XTERP 

IBNSRC 

FILRT 

LCTRIM 

CONFIG 

CNSTNT 

SUB 

MUL 

DSUB 

DMUL 

DIV 

DDIV 

DADD 

ADD 
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7.3.4  BBTEMP  Common  Block  Cross-Reference  List 


Coiranon  Block  CONSTN  used  in: 

BBTEMP  CNSTNT 

Common  Block  DEVICE  used  in: 

BBTEMP  DEVCBD 

Common  Block  FLAGS  used  in: 

BBTEMP  PUTSLR 

Common  Block  HEADER  used  in: 

BBTEMP  GETHDR 

Common  Block  MOLECP  used  in: 

BBTEMP  SUMFIL 

Common  Block  USERNM  used  in: 

BBTEMP  SUMFIL 

Common  Block  FLTRDT  used  in: 

FILTER  RDFLTR 

Common  Block  CHRCNM  used  in: 

CHRCBD  PUTCLD 

Common  Block  CLDRN  used  in: 

CLDRBD  PUTCLD 

Common  Block  INFLTR  used  in: 

INFLBD  RDFLTR 

Common  Block  SOLIRl  used  in: 

SLRIBD  SLRCNT 

Common  Block  DEVCNM  used  in; 

DEVCBD  FILRT 

Common  Block  MACHIN  used  in: 

DEVCBD 

7.4  CRFILE 


FILTER 

INVPLK 

XTERP 

PUTCLD 

PUTSLR 

RDFLTR 

SETFLG 

SUMFIL 

PUTCLD 

PUTSLR 

SUMFIL 

SUMFIL 


SUMFIL 


7.4,1  CRFILE  Subprogram  References 


CRFILE 

calls : 
CONFIG 

CRBKGD 

CRFLTR 

CRINPT 

CRUAER 

CRUCLD 

FILRT 

lOERR 

MENU 

PROMPT 

CONFIG 

calls : 

none 

CRBKGD 

calls : 

lOERR 

lOERR  calls; 

GERROR 

GERROR 

calls : 

none 

CRFLTR 

calls : 

lOERR 

LCTRIM 

LENSTR 

PROMPT 

UPCASE 

LCTRIM 

calls : 

none 

LENSTR 

calls : 

none 

PROMPT 

calls: 

none 

UPCASE 

calls : 

none 

CRINPT 

calls : 
CALEND 

CHTIME 

CRUATM 

GETVAR 

IGTINT 

LCTRIM 

LWCASE 

MENU 

MONTH 

PROMPT 

CALEND 

calls : 

none 

CHTIME 

calls: 

none 

CRUATM 

calls : 
CALEND 

CHTIME 

GETVAR 

IGTINT 

lOERR 

LWCASE 

MSAG 

PROMPT 

UPCASE 

GETVAR 

calls : 

lOERR 

IGTINT 

calls : 

lOERR 

LWCASE 

calls : 

none 

SUMFIL 


CRUATM 

RDMDTN 


lOERR 

UPCASE 


LCTRIM 


EPHTIM 


MDRI 


MSAG  calls: 

CALEND 

EPHTIM  calls:  none 
MDRI  calls: 

AFTERP  DNCALC  DNO  DREAD  GTD6  INTERP 

OHCALC  POZONE  SINTRP  SUN  TDEP  VP 

AFTERP  calls:  none 
DNCALC  calls: 

SOLZEN 
SOLZEN  calls: 

LATPHI  SUBSOL 


LATPHI 

calls : 

none 

SUBSOL 

calls : 

none 

DNO  calls: 

SINTRP 

SINTRP 

calls : 

none 

DREAD  calls:  none 
GTD6  calls: 

DENSM  GLATF  GLOB  6  S  GTS  6  VTST 

DENSM  calls: 

SPLINE  SPLINI  SPLINT 

SPLINE  calls:  none 
SPLINI  calls:  none 
SPLINT  calls:  none 
GLATF  calls:  none 
GLOB6S  calls:  none 
GTS6  calls: 

CCOR  DENSU  DNET  GLOB 6 S  GLOBE 6  VTST 

CCOR  calls:  none 
DENSU  calls: 

SPLINE  SPLINI  SPLINT 

DNET  calls:  none 
GLOBE6  calls: 

TSELEC 

TSELEC  calls:  none 
VTST  calls:  none 
INTERP  calls:  none 
OHCALC  calls:  none 
POZONE  calls:  none 
SUN  calls: 

DECEQT 

DECEQT  calls:  none 
TDEP  calls:  none 
VP  calls:  none 
MENU  calls: 

lOERR  PROMPT 

MONTH  calls: 

LCTRIM  UPCASE 

CRUAER  calls: 

lOERR 
CRUCLD  calls: 

lOERR 

FILRT  calls: 

LCTRIM 
RDMDTN  calls: 

CNVJTK  lOERR  PROMPT 

CNVJTK  calls: 

lOERR 

7.4.2  CRFILE  Cross-Reference  List 


AFTERP  called  by: 
MDRI 


528 


CRUATM 


MSAG 


CALEND  called  by: 
CRINPT 

CCOR  called  by: 

GTS  6 

CHRCBD  called  by: 
MENU 

CHTIME  called  by: 
CRINPT 

CNVJTK  called  by: 
RDMDTN 

CONFIG  called  by: 
CRFILE 

CRBKGD  called  by: 
CRFILE 

CRFILE  not  called 
CRFLTR  called  by: 
CRFILE 

CRINPT  called  by: 
CRFILE 

CRUAER  called  by: 
CRFILE 

CRUATM  called  by: 
CRFILE 

CRUCLD  called  by: 
CRFILE 

DECEQT  called  by: 

SUN 

DENSM  called  by: 

GTD6 

DENSU  called  by: 

GTS  6 

DEVCBD  called  by: 
CRBKGD 
CRUCLD 

DNCALC  called  by: 
MDRI 

DNET  called  by: 

GTS  6 

DNO  called  by: 

MDRI 

DREAD  called  by: 

MDRI 

EPHTIM  called  by: 
MSAG 

FILRT  called  by: 
CRFILE 

GERROR  called  by: 
lOERR 

GETVAR  called  by: 
CRINPT 

GLATF  called  by: 

GTD6 

GLOB6S  called  by: 
GTD6 

GLOBE6  called  by: 
GTS  6 

GTD6  called  by: 

MDRI 

GTD6BK  called  by: 
GTD6 

GTS6  called  by: 

GTD6 

IGTINT  called  by: 
CRINPT 


CRUATM 


CRINPT 


CRFILE 

FILRT 


CRUATM 


GTS  6 


CRUATM 


CRFLTR 

MDRI 


CRINPT 


CRUAER 


CRUATM 
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INARBD  called  by: 
CRUAER 

INBKBD  called  by: 
CRBKGD 

INCLBD  called  by: 
CRUCLD 

INFLBD  called  by: 


CRFLTR 

INPTBD  called  by: 


CRINPT 

CRUATM 

RDMDTN 

INTERP 

called  by: 

MDRI 

lOERR  . 

called  by: 

CNVJTK 

CRBKGD 

CRFILE 

CRFLTR 

CRINPT 

CRUAER 

CRUATM 

CRUCLD 

GETVAR 

IGTINT 

MENU 

RDMDTN 

LATPHI 

called  by: 

SOLZEN 

LCTRIM 

called  by: 

CRFLTR 

CRINPT 

CRUATM 

FILRT 

MONTH 

LENSTR  called  by: 

CRFLTR 

LWCASE  called  by: 

CRINPT  CRUATM 

MDRI  called  by: 

MSAG 

MENU  called  by: 

CRFILE  CRINPT 

MONTH  called  by: 

CRINPT 

MSAG  called  by: 

CRUATM 

NRLBD  called  by: 

DREAD  MDRI 

OHCALC  called  by: 

MDRI 

POZONE  called  by: 

MDRI 

PROMPT  called  by: 

CRFILE  CRFLTR  CRINPT  CRUATM  MENU  RDMDTN 

RDMDTN  called  by: 

CRFILE 

SINTRP  called  by: 

DNO  MDRI 

SOLZEN  called  by: 

DNCALC 

SPLINE  called  by: 

DENSM  DENSU 

SPLINI  called  by: 

DENSM  DENSU 

SPLINT  called  by: 

DENSM  DENSU 

SUBSOL  called  by: 

SOLZEN 
SUN  called  by: 

MDRI 

TDEP  called  by: 

MDRI 

TSELEC  called  by: 

GLOBE6 

UPCASE  called  by: 

CRFLTR  CRINPT  CRUATM  MONTH 

VP  called  by: 

MDRI 

VTST  called  by: 

GTD6 


GTS  6 


7.4.3  CRFILE  Pre-Reauisite  Order  List 


S' 


\ 


CRFILE 

RDMDTN 

CRINPT 

MONTH 

VP 

TDEP 

INTERP 

GTD6 

GLOB 6 S 

DNET 

SPLINT 

SPLINI 

DNCALC 

SOLZEN 

CALEND 

LWCASE 

UPCASE 

PROMPT 

GERROR 

CONFIG 

CNVJTK 

FILRT 

MENU 

CRUATM 

SUN 

DECEQT 

GTS  6 

VTST 

DENSU 

CCOR 

SPLINE 

DREAD 

SUBSOL 

LATPHI 

IGTINT 

GETVAR 

LENSTR 

LCTRIM 

7.4.4  CRFILE  Common  Block  Cross-Reference  List 


CRUCLD 
MSAG 
POZONE 
GLOBE 6 
GLATF 
DNO 
AFTERP 
CHTIME 
CRBKGD 


Coinmon  Block  DEVICE  used  in: 

CRFILE  DEVCBD 

Common  Block  INBKGD  used  in: 

CRBKGD  INBKBD 

Common  Block  MACHIN  used  in: 

CRBKGD  CRFLTR 

DEVCBD 

Common  Block  INFLTR  used  in: 

CRFLTR  INFLBD 

Common  Block  HEADER  used  in : 

CRINPT  CRUATM 

Common  Block  INPNDX  used  in: 

CRINPT  CRUATM 

Common  Block  INPTDT  used  in: 

CRINPT  CRUATM 

Common  Block  INUAER  used  in : 

CRUAER  INARBD 

Common  Block  INUCLD  used  in; 

CRUCLD  INCLBD 

Common  Block  PARMB  used  in: 

DENSM  DENSU 

Common  Block  DBASE  used  in: 

DREAD  INTERP 

Common  Block  NRLDEV  used  in : 

DREAD  NRLBD 

Common  Block  LPOLY  used  in: 

GLOB 6 S  GLOBE 6 

Common  Block  CSW  used  in: 

GLOB 6 S  GLOBE 6 

Common  Block  GTS3C  used  in: 

GTD6  GTS 6 

Common  Block  MES06  used  in: 

GTD6  GTS 6 

Common  Block  L0WER6  used  in: 

GTD6  GTD6BK 

Common  Block  PARM6  used  in: 

GTD6  GTD6BK 

Common  Block  MAVG6  used  in: 

GTD6  GTD6BK 

Common  Block  DMIX  used  in: 

GTD6  GTS 6 

Common  Block  METSEL  used  in: 

GTD6  GTD6BK 

Common  Block  DEVCNM  used  in: 

DEVCBD  FILRT 

Common  Block  NRLFIL  used  in: 

MDRI  NRLBD 


CRINPT  CRUAER  CRUATM 


INPTBD  RDMDTN 

INPTBD  RDMDTN 

GTD6 


GTD6  GTS 6  TSELEC 

GTS  6 
GTS  6 

GTS  6 
MDRI 


CRUAER 

MDRI 

OHCALC 

TSELEC 

DENSM 

SINTRP 

EPHTIM 

CRFLTR 

lOERR 


CRUCLD 


VTST 
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Common  Block  SPECIE  used  in: 

MDRI  NRLBD 

Common  Block  CHRCNM  used  in: 
CHRCBD  MENU 

7.5  FACET 


A 


7,5.1  FACET  Subprogram  References 


FACET  calls: 


CNSTNT 

CONFIG 

FILTER 

GETHDR 

lOERR 

LWCASE 

PARSE 

PROMPT 

SETFLG 

SUMFIL 

SURFAC 

UPCASE 

CNSTNT 

calls : 

ADD 

DADD 

DDIV 

DIV 

MUL 

SUB 

ADD  calls:  none 

DADD  calls:  none 

DDIV  calls:  none 

DIV  calls:  none 

DMUL  calls:  none 

DSUB  calls:  none 

MUL  calls:  none 

SUB  calls:  none 

CONFIG 

calls : 

none 

FILTER 

calls : 

XTERP 

XTERP  calls: 

IBNSRC 

IBNSRC 

calls : 

none 

GETHDR 

calls : 

lOERR 

lOERR  calls: 

GERROR 

GERROR 

calls : 

none 

GETVAR 

calls : 

lOERR 

GETVEC 

calls : 

lOERR 

LCTRIM 

LENSTR 

LCTRIM 

calls : 

none 

LENSTR 

calls : 

none 

LWCASE 

calls : 

none 

PARSE  calls: 

LCTRIM 

LENSTR 

PROMPT 

calls : 

none 

RDFLTR 

calls : 

GETVAR 

lOERR 

LCTRIM 

LENSTR 

RDLINE 

UPCASE 

RDLINE 

calls : 

lOERR 

LCTRIM 

LENSTR 

UPCASE 

calls : 

none 

SETFLG 

calls : 

none 

SUMFIL 

calls : 

CHTIME 

lOERR 

LENSTR 

PUTCLD 

CHTIME 

calls : 

none 

PUTCLD 

calls : 

lOERR 

PUTSLR 

calls : 

lOERR 

SLRCNT 

SLRCNT 

calls : 

none 

SURFAC 

calls : 

BDRF 

DIREMS 

FRESNL 

PLANCK 

ROUGH 

SHADOW 

XTERP 

GETVAR  GETVEC 

RDFLTR  RDLINE 

XTERP 

DMUL  DSUB 


LWCASE  PARSE 


PUTSLR 


PROFAC  REFEST 
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SHADOW 


BDRF  calls: 

DIREFL 

DIREFL  calls:  none 
SHADOW  calls: 

DERF 

DERF  calls:  none 
DIREMS  calls: 

EHBSLO  FRESNL  PLANCK 

EHBSLO  calls: 

POLY 

POLY  calls:  none 
FRESNL  calls :  none 
PLANCK  calls:  none 
PROFAC  calls: 

IBNSRC 

REFEST  calls:  none 
ROUGH  calls: 

EHBSLO 

7.5.2  FACET  Cross-Reference  List 


ADD  called  by: 

CNSTNT 

BDRF  called  by: 

SURFAC 

CHRCBD  called  by: 

PUTCLD  SUMFIL 

CHTIME  called  by: 

SUMFIL 

CLDRBD  called  by: 

PUTCLD 

CNSTNT  called  by: 

FACET 

CONFIG  called  by: 

FACET 

DADD  called  by: 

CNSTNT 

DDIV  called  by: 

CNSTNT 

DERF  called  by: 

SHADOW 

DEVCBD  called  by: 

FACET  PUTCLD  PUTSLR  RDFLTR  SUMFIL 

DIREFL  called  by: 

BDRF 

DIREMS  called  by: 

SURFAC 
DIV  called  by: 

CNSTNT 

DMUL  called  by: 

CNSTNT 

DSUB  called  by: 

CNSTNT 

EHBSLO  called  by: 

DIREMS  ROUGH 

FACET  not  called 
FILTER  called  by: 

FACET 

FRESNL  called  by: 

DIREMS  SURFAC 

GERROR  called  by: 
lOERR 

GETHDR  called  by: 

FACET 
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RDFLTR 


GETVAR  called  by: 

FACET 

GETVEC  called  by: 

FACET 

IBNSRC  called  by: 

PROFAC  XTERP 

INFLBD  called  by: 

FACET  RDFLTR 

lOERR  called  by: 

FACET  GETHDR  GETVAR  GETVEC  PUTCLD  PUTSLR 

RDFLTR  RDLINE  SUMFIL 

LCTRIM  called  by: 

GETVEC  PARSE  RDFLTR  RDLINE 

LENSTR  called  by: 

GETVEC  PARSE  RDFLTR  RDLINE  SUMFIL 

LWCASE  called  by: 

FACET  RDFLTR 

MUL  called  by: 

CNSTNT 

PARSE  called  by: 

FACET  RDFLTR 

PLANCK  called  by; 

DIREMS  SURFAC 

POLY  called  by: 

EHBSLO 

PROFAC  called  by: 

SURFAC 

PROMPT  called  by: 

FACET 

PUTCLD  called  by: 

SUMFIL 

PUTSLR  called  by: 

SUMFIL 

RDFLTR  called  by: 

FACET 

RDLINE  called  by: 

FACET  RDFLTR 

REFEST  called  by: 

SURFAC 

ROUGH  called  by: 

SURFAC 

SETFLG  called  by: 

FACET 

SHADOW  called  by: 

BDRF  FACET  SURFAC 

SLRIBD  called  by: 

SLRCNT 

SLRCNT  called  by: 

PUTSLR 
SUB  called  by: 

CNSTNT 

SUMFIL  called  by: 

FACET 

SURFAC  called  by: 

FACET 

UPCASE  called  by: 

FACET  RDFLTR 

XTERP  called  by: 

FACET  FILTER  SURFAC 


7.5.3  FACET  Pre-Reauisite  Order  List 


c 


FACET  SURFAC  ROUGH  REFEST  PROFAC  DIREMS 

PLANCK  FRESNL  EHBSLO  POLY  BDRF  SHADOW 
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< 


DERF 

DIREFL 

CHTIME 

SETFLG 

LWCASE 

GETVAR 

GETHDR 

lOERR 

CONFIG 

CNSTNT 

DIV 

DDIV 

7.5.4  FACET  Common  Block 

Coinmon  Block  CONSTN  used  in: 

BDRF  CNSTNT 

PLANCK  PROFAC 

XTERP 

Common  Block  DEVICE  used  in: 

DEVCBD  FACET 

Common  Block  HEADER  used  in: 

FACET  GETHDR 

Common  Block  MATRLD  used  in: 

FACET  SURFAC 

Common  Block  MOLECP  used  in: 

FACET  SUMFIL 

Common  Block  USERNM  used  in: 

FACET  SUMFIL 

Common  Block  FLTRDT  used  in: 

FILTER  RDFLTR 

Common  Block  CHRCNM  used  in: 


SUMFIL 

RDFLTR 

PROMPT 

GERROR 

SUB 

DADD 

PUTSLR 

UPCASE 

GETVEC 

FILTER 

MUL 

ADD 

SLRCNT 

RDLINE 

LENSTR 

XTERP 

DSUB 

Cross-Reference  List 

DIREMS 

REFEST 

FACET 

ROUGH 

FILTER 

SHADOW 

PUTCLD 

PUTSLR 

RDFLTR 

PUTCLD 

PUTSLR 

SUMFIL 

CHRCBD  PUTCLD  SUMFIL 


Common  Block  CLDRN  used  in: 


CLDRBD  PUTCLD 


Common  Block  FLAGS  used  in: 

PUTSLR  SETFLG  SUMFIL 

Common  Block  INFLTR  used  in: 

INFLBD  RDFLTR 

Common  Block  SOLIRl  used  in: 

SLRIBD  SLRCNT 

Common  Block  DEVCNM  used  in: 

DEVCBD  SUMFIL 

Common  Block  MACHIN  used  in: 

DEVCBD 


7.6  FPTEST 


7.6.1  FPTEST  Subprogram  References 


FPTEST  calls: 

FLCOLl 

lOERR 

CKSTAT 

CNSTNT 

CONFIG 

PROMPT 

TITLCR 

CKSTAT  calls: 

ZSTAT 

ZSTAT  calls :  none 
CNSTNT  calls: 

DMUL 

ADD 

DADD 

DDIV 

DIV 

MUL 

SUB 

ADD  calls:  none 
DADD  calls:  none 
DDIV  calls:  none 
DIV  calls:  none 
DMUL  calls:  none 
DSUB  calls:  none 
MUL  calls:  none 
SUB  calls:  none 
CONFIG  calls:  none 


PUTCLD 

PARSE 

LCTRIM 

IBNSRC 

DMUL 


FRESNL 

SURFAC 


SUMFIL 


LRECHK 


DSUB 
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FLCOLl  calls: 

lOERR 

lOERR  calls: 

GERROR 

GERROR  calls:  none 
LRECHK  calls: 

lOERR 

PROMPT  calls:  none 
TITLCR  calls: 

FDATE 

FDATE  calls:  none 

7.6.2  FPTEST  Cross-Reference  List 


ADD  called  by: 

CNSTNT 

CKSTAT  called  by: 

FPTEST 

CNSTNT  called  by: 

FPTEST 

CONFIG  called  by: 

FPTEST 

DADD  called  by: 

CNSTNT 

DDIV  called  by: 

CNSTNT 

DEVCBD  called  by: 

FPTEST 
DIV  called  by: 

CNSTNT 

DMUL  called  by: 

CNSTNT 

DSUB  called  by: 

CNSTNT 

FDATE  called  by: 

TITLCR 

FLCOLl  called  by: 

FPTEST 

FPTEST  not  called 
GERROR  called  by: 
lOERR 

lOERR  called  by: 

FLCOLl  FPTEST  LRECHK 

LRECHK  called  by: 

FPTEST 
MUL  called  by: 

CNSTNT 

PROMPT  called  by: 

FPTEST 
SUB  called  by: 

CNSTNT 

TITLCR  called  by: 

FPTEST 

ZSTAT  called  by: 

CKSTAT 

7.6.3  FPTEST  Pre-Reauisite  Order  List 


FPTEST 

TITLCR 

FDATE 

PROMPT 

LRECHK 

FLCOLl 

lOERR 

GERROR 

CONFIG 

CNSTNT 

SUB 

MUL 

DSUB 

DMUL 

DIV 

DDIV 

DADD 

ADD 

CKSTAT 

ZSTAT 

7.6.4  FPTEST  Common  Block  Cross-Reference  List 


Common  Block  CONSTN  used  in: 

CNSTNT  FPTEST 

Common  Block  DEVICE  used  in: 

DEVCBD  FPTEST 

Common  Block  MACHIN  used  in: 

DEVCBD  FPTEST 

Common  Block  DEVCNM  used  in: 
^  DEVCBD 

7.7  INSTDB 


7.7.1  INSTDB  Subprogram  References 


INSTDB  calls: 

CONFIG 


CONFIG 

calls : 

none 

lOERR  calls: 

GERROR 

GERROR 

calls : 

none 

LCTRIM 

calls : 

none 

PROMPT 

calls : 

none 

RDSCN  calls: 

CITIES 

CITIES 

calls : 

none 

IBKCNV 

calls : 

none 

UPCASE 

calls : 

none 

lOERR  LCTRIM 


IBKCNV  lOERR 


PROMPT 


RDSCN 


7.7.2  INSTDB  Cross-Reference  List 


CITIES  called  by: 

RDSCN 

CONFIG  called  by: 

INSTDB 

DEVCBD  called  by: 

INSTDB  RDSCN 

ECOSBD  called  by: 

IBKCNV 

GERROR  called  by: 
lOERR 

IBKCNV  called  by: 

RDSCN 

INSTDB  not  called 
lOERR  called  by: 

INSTDB  RDSCN 

LCTRIM  called  by: 

INSTDB 

MOLNBD  called  by: 

INSTDB 

PROMPT  called  by: 

INSTDB 

RDSCN  called  by: 

INSTDB 

UPCASE  called  by: 

INSTDB 

7.7.3  INSTDB  Pre-Reauisite  Order  List 

INSTDB  UPCASE  RDSCN  lOERR  GERROR 

CITIES  PROMPT  LCTRIM  CONFIG 


UPCASE 


IBKCNV 
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7.7.4  INSTDB  Common  Block  Cross-Reference  List 


Coinmon 

Block  DEVCNM 

used 

in 

DEVCBD 

INSTDB 

Common 

Block  DEVICE 

used 

in 

DEVCBD 

INSTDB 

Common 

Block  MOLNXdX 

used 

in 

INSTDB 

MOLNBD 

Common 

Block  ECOCNV 

used 

in 

ECOSBD 

IBKCNV 

Common 

Block  ECOSYS 
ECOSBD 

used 

in 

Common 

Block  MACHIN 
DEVCBD 

used 

in 

7.8  MRFLTR 

RDSCN 

RDSCN 


\ 


) 


7.8.1  MRFLTR  Subprogram  References 


MRFLTR  calls: 

ATMOUT 

CNSTNT 

CONFIG 

DBINIT 

GETHDR 

INITL 

lOERR 

PROMPT 

RDFLTR 

SETFLG 

SUMFIL 

ATMOUT  calls: 

ATMINT 

ATMPRN 

BCKINT 

BCKPRN 

GETHDR 

lOERR 

ZROINT 
ATMINT  calls: 

FILTER 
FILTER  calls: 

XTERP 

lOERR 

XTERP  calls: 

IBNSRC 

IBNSRC  calls:  none 
lOERR  calls: 

GERROR 

GERROR  calls:  none 
ATMPRN  calls: 

INDXBK  lOERR 

INDXBK  calls: 

GBLBCK 
GBLBCK  calls: 

AIRTMP  RDGBL 

AIRTMP  calls:  none 
RDGBL  calls: 

lOERR  SEAICE 

SEAICE  calls:  none 
RDSCN  calls: 

CITIES  IBKCNV 

CITIES  calls:  none 
IBKCNV  calls:  none 
PRALT  calls: 

IBNSRC 
RELHUM  calls: 


PRALT  RELHUM  SETBCK 


RDSCN 


lOERR 


SATUR 

SATUR  calls:  none 
SETBCK  calls: 

INTR2D  MODBCK 

INTR2D  calls:  none 
MODBCK  calls:  none 
BCKINT  calls: 

FILTER  lOERR 

BCKPRN  calls: 

lOERR 
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GETHDR  calls: 

lOERR 

ZROINT  calls:  none 
CNSTNT  calls: 

add  DADD  DDIV  DIV  DMUL 

f  MUL  SUB 

ADD  calls:  none 
DADD  calls:  none 
DDIV  calls:  none 
r  DIV  calls:  none 

^  DMUL  calls:  none 

DSUB  calls:  none 
MUL  calls:  none 
SUB  calls:  none 
CONFIG  calls:  none 
DBINIT  calls: 


lOERR 

INITL  calls: 


BEAUFT 

BINFIL 

CALEND 

CIRRUS 

DEFALT 

DFLT8 

EXOATM 

EXOTMP 

FILOPN 

FILRT 

GETASP 

GETATM 

GETBCK 

GETCLD 

GETEXO 

GETSLR 

GETVAR 

GETVEC 

lOERR 

ISRAEL 

MDLATM 

MIEINP 

PARSE 

RDLINE 

SATUR 

STGEOM 

UPCASE 

USRDEF 

VSA 

ZROHDR 

BEAUFT  calls:  none 

BINFIL  calls: 

CHKRST 

CHKVER 

DISEND 

FLSTAT 

lOERR 

UPCASE 
CHKRST  calls: 

lOERR 
CHKVER  calls: 

lOERR 
DISEND  calls: 

lOERR 
FLSTAT  calls: 

lOERR  UPCASE 

UPCASE  calls:  none 
RDLINE  calls: 

lOERR  LCTRIM  LENSTR 

LCTRIM  calls:  none 
LENSTR  calls:  none 
CALEND  calls:  none 
CIRRUS  calls:  none 
DEFALT  calls: 

EXOATM  GBLBCK 

EXOATM  calls: 

XTERP 

DFLT2  calls: 

IDAERO  MDLATM 

IDAERO  calls:  none 
MDLATM  calls:  none 
DFLT8  calls* 

DVINCR  GETVEC  RDLINE  UPCASE 

DVINCR  calls:  none 
GETVEC  calls: 

lOERR  LCTRIM  LENSTR 

EXOTMP  calls:  none 
FILOPN  calls: 

lOERR  RDLINE  UPCASE 

FILRT  calls: 

LCTRIM 
GETASP  calls: 

GETVEC  IGTINT  RDLINE  UPCASE 

IGTINT  calls: 

lOERR 


DSUB 


DFLT2 

GBLBCK 

GETPOS 

LWCASE 

SETFLG 


RDLINE 
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GETATM 

calls : 

GETVAR 

IGTINT 

IGTVEC 

LWCASE 

MRNDFL 

NCHATM 

NCHAZE 

NCHSEA 

RDLINE 

UPCASE 

GETVAR 

calls : 

lOERR 

IGTVEC 

calls : 

lOERR 

LCTRIM 

LENSTR 

LWCASE 

calls:  none 

MRNDFL 

calls:  none 

NCHAER 

calls : 

LCTRIM 

UPCASE 

NCHATM 

calls : 

LCTRIM 

UPCASE 

NCHAZE 

calls : 

LCTRIM 

UPCASE 

NCHSEA 

calls : 

LCTRIM 

UPCASE 

GETBCK 

calls : 

GETVAR 

GETVEC 

IGTINT 

RDLINE 

UPCASE 

USRBCK 

calls : 

GETVAR 

GETVEC 

IGTINT 

IGTVEC 

lOERR 

RDLINE 

UPCASE 

PARSE  calls: 

LCTRIM 

LENSTR 

GETCLD 

calls : 

GETVAR 

IGTINT 

RDLINE 

UPCASE 

USRCLD 

USRCLD 

calls : 

GETVAR 

IGTINT 

lOERR 

PARSE 

RDLINE 

GETEXO 

calls : 

GETVAR 

IGTINT 

PARSE 

RDLINE 

UPCASE 

GETPOS 

calls : 

CALEND 

CHTIME 

GETVAR 

IGTINT 

LWCASE 

RDLINE 

UPCASE 

CHTIME 

calls:  none 

MONTH  calls: 

LCTRIM 

UPCASE 

GETSLR 

calls : 

GETVAR 

RDLINE 

SPTRIG 

UPCASE 

SPTRIG 

calls:  none 

ISRAEL 

calls:  none 

MIEINP 

calls : 

GETVAR 

GETVEC 

IGTINT 

lOERR 

LWCASE 

RDLINE 

UPCASE 

SETFLG 

calls:  none 

STGEOM 

calls : 

GETVAR 

IGTINT 

LWCASE 

UPCASE 

USRDEF 

calls : 

GBLBCK 

GETVAR 

IGTINT 

lOERR 

LWCASE 

PARSE 

RDLINE 

UPCASE 

XMCONV 

XTERP 

XMCONV 

calls : 

SATUR 

XTERP 

VSA  calls:  none 

ZROHDR 

calls:  none 

PROMPT 

calls:  none 

RDFLTR 

calls : 

GETVAR 

lOERR 

LCTRIM 

LENSTR 

LWCASE 

RDLINE 

UPCASE 

SUMFIL 

calls : 

CHTIME 

lOERR 

LENSTR 

PUTCLD 

PUTSLR 

PUTCLD 

calls : 

lOERR 

PUT SLR 

calls : 

lOERR 

SLRCNT 

SLRCNT 

calls:  none 

NCHAER 


USRBCK 

PARSE 


UPCASE 

MONTH 


PARSE 

MDLATM 


PARSE 


7.8.2  MRFLTR  Cross-Reference  List 


ADD  called  by: 

CNSTNT 
AIRTMP  called 

by: 

ATMINT 

GBLBCK 

called 

by: 

ATMOUT 

ATMOUT 

called 

by: 

ATMPRN 

MRFLTR 

called 

by: 

ATMSBD 

ATMOUT 

called 

by: 

BCKINT 

ATMPRN 

USRDEF 

called 

by: 

BCKPRN 

BCKPRN 

ATMOUT 

called 

by: 

BEAUFT 

ATMOUT 

called 

by: 

BINFIL 

INITL 

called 

by: 

BKGDBD 

INITL 

called 

by: 

CALEND 

ATMPRN 

called 

by: 

GETBCK 

CHKRST 

GETPOS 

called 

by: 

INITL 

CHKVER 

BINFIL 

called 

by: 

CHRCBD 

BINFIL 

called 

by: 

CHTIME 

ATMPRN 

called 

by: 

PUTCLD 

CIRRUS 

GETPOS 

called 

by: 

SUMFIL 

CITIES 

INITL 

called 

by: 

CLDRBD 

RDSCN 

called 

by: 

CNSTNT 

PUTCLD 

called 

by: 

USRCLD 

CONFIG 

MRFLTR 

called 

by: 

MRFLTR 

DADD  called  by: 

DBINIT 

CNSTNT 

called 

by: 

MRFLTR 

DDIV  called  by: 

DEFALT 

CNSTNT 

called 

by: 

DEVCBD 

INITL 

called 

by: 

DFLT2 

ATMINT 

DEFALT 

GETATM 

INITL 

RDGBL 
called  by: 

ATMOUT 

DFLT8 

GETBCK 

MIEINP 

RDSCN 

DFLT8 

INITL 
called  by: 

INITL 


DFLT2  GBLBCK  INITL 


INITL  SETBCK  USRBCK 


SUMFIL 


ATMPRN 

FILRT 

GETCLD 

MRFLTR 

SUMFIL 


USRBCK 


BCKINT 

FLSTAT 

GETEXO 

PUTCLD 

USRBCK 


BCKPRN 

GBLBCK 

GETPOS 

PUTSLR 

USRCLD 


SETBCK 


DBINIT 

GETASP 

GETSLR 

RDFLTR 
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DISEND  called  by: 

BINFIL 
DIV  called  by: 

CNSTNT 

DMUL  called  by: 

CNSTNT  ' 

DSUB  called  by: 

CNSTNT 

DVINCR  called  by: 

DFLT8 

ECOSBD  called  by:  ' 

IBKCNV 

EXMLBD  called  by: 

USRDEF 

EXOATM  called  by: 

DEFALT  INITL 

EXOTMP  called  by: 

INITL 

FILOPN  called  by: 

INITL 

FILRT  called  by: 

INITL 

FILTER  called  by: 

ATMINT  BCKINT 

FLSTAT  called  by: 

BINFIL 

GBLBCK  called  by: 

DEFALT  INDXBK  INITL  USRDEF 

GERROR  called  by: 
lOERR 

GETASP  called  by: 

INITL 

GETATM  called  by: 

INITL 

GETBCK  called  by: 

INITL 

GETCLD  called  by: 

INITL 

GETEXO  called  by: 

INITL 

GETHDR  called  by: 

ATMOUT  MRFLTR 

GETPOS  called  by: 

INITL 

GETSLR  called  by: 

INITL 

GETVAR  called  by: 


GETATM 

GETBCK 

GETCLD 

GETEXO 

GETPOS 

GETSLR 

INITL 

USRDEF 

MIEINP 

RDFLTR 

STGEOM 

USRBCK 

USRCLD 

GETVEC 

called 

by: 

DFLT8 

GETASP 

GETBCK 

INITL 

MIEINP 

USRBCK 

IBKCNV 

called 

by: 

RDSCN 

IBNSRC 

called 

by: 

PRALT 

XTERP 

IDAERO 

called 

by: 

DFLT2 

IGTINT 

called 

GETASP 

by: 

GETATM 

GETBCK 

GETCLD 

GETEXO 

GETPOS 

MIEINP 

STGEOM 

USRBCK 

USRCLD 

USRDEF 

IGTVEC 

called 

GETATM 

by: 

USRBCK 

INDXBK  called  by: 
ATMPRN 
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INFLBD  called  by: 
RDFLTR 

INITL  called  by: 
MRFLTR 

INPTBD  called  by: 
INITL 

INTR2D  called  by: 
SETBCK 

lOERR  called  by: 


ATMINT 

ATMOUT 

ATMPRN 

BCKINT 

BCKPRN 

BINFIL 

CHKRST 

CHKVER 

DBINIT 

DISEND 

FILOPN 

FLSTAT 

GETHDR 

GETVAR 

GETVEC 

IGTINT 

IGTVEC 

INITL 

MIEINP 

MRFLTR 

PUTCLD 

PUTSLR 

RDFLTR 

RDGBL 

RDLINE 

RDSCN 

SUMFIL 

USRBCK 

USRCLD 

USRDEF 

ISRAEL  called  by: 

INITL 

LCTRIM  called  by: 

FILRT 

GETVEC 

IGTVEC 

MONTH 

NCHAER 

NCHATM 

NCHAZE 

NCHSEA 

PARSE 

RDFLTR 

RDLINE 

LENSTR  called  by: 

GETVEC 

IGTVEC 

PARSE 

RDFLTR 

RDLINE 

SUMFIL 

LWCASE  called  by: 

GETATM 

GETPOS 

INITL 

MIEINP 

RDFLTR 

STGEOM 

USRDEF 

MDLATM  called  by: 

DFLT2 

INITL 

USRDEF 

MIEINP  called  by 
INITL 


MODBCK  called  by: 

SETBCK 

MOLPBD  called  by: 

XMCONV 

MONTH  called  by: 

GETPOS 

MRFLTR  not  called 
MRNDFL  called  by: 

GETATM 
MUL  called  by: 

CNSTNT 

NCHAER  called  by: 

GETATM 

NCHATM  called  by: 

GETATM 

NCHAZE  called  by: 

GETATM 

NCHSEA  called  by: 

GETATM 

PARSE  called  by: 

GETEXO  INITL  MIEINP  RDFLTR  USRBCK  USRCLD 

USRDEF 

PRALT  called  by: 

ATMPRN 

PROMPT  called  by: 

MRFLTR 

PUTCLD  called  by: 

SUMFIL 

PUTSLR  called  by: 

SUMFIL 

RDFLTR  called  by: 

MRFLTR 

RDGBL  called  by: 

GBLBCK 


RDLINE 

called 

BINFIL 

by: 

DFLT8 

FILOPN 

GETCLD 

GETEXO 

GETPOS 

RDFLTR 

USRBCK 

USRCLD 

RDSCN  called  by: 

GBLBCK 

RELHUM 

called 

ATMPRN 

by: 

SATUR  called  by: 

INITL 

RELHUM 

XMCON\;^ 

SCENBD 

called 

ATMPRN 

by: 

SETBCK 

USRBCK 

SEAICE 

called 

by: 

RDGBL 

SETBCK 

called 

ATMPRN 

by: 

SETFLG 

called 

by: 

INITL 

MRFLTR 

SICEBD 

called 

SEAICE 

by: 

SLRIBD 

called 

SLRCNT 

by: 

SLRCNT 

called 

PUTSLR 

by: 

SPTRIG 

called 

GETSLR 

by: 

STGEOM 

called 

by: 

INITL 

STMLBD 

called 

USRDEF 

by: 

SUB  called  by: 

CNSTNT 

SUMFIL 

called 

MRFLTR 

by: 

UPCASE 

called 

BINFIL 

by: 

DFLT8 

FILOPN 

GETBCK 

GETCLD 

GETEXO 

MIEINP 

MONTH 

NCHAER 

RDFLTR 

STGEOM 

USRBCK 

UPPRBD 

called 

EXOATM 

by: 

USRBCK 

called 

GETBCK 

by: 

USRCLD 

called 

GETCLD 

by: 

USRDEF 

called 

by: 

INITL 
VSA  called  by: 

INITL 

XMCONV  called  by: 

USRDEF 

XTERP  called  by: 

EXOATM  FILTER  USRDEF 

ZROHDR  called  by: 

INITL 

ZROINT  called  by: 

ATMOUT 


GETASP  GETATM  GETBCK 
GETSLR  INITL  MIEINP 
USRDEF 


} 


FLSTAT  GETASP  GETATM 
GETPOS  GETSLR  INITL 
NCHATM  NCHAZE  NCHSEA 
USRCLD  USRDEF 


XMCONV 


7.8.3  MRFLTR  Pre-Reauisite  Order  List 


MRFLTR 

SUMFIL 

PUTSLR 

SLRCNT 

PUTCLD 

RDFLTR 

PROMPT 

INITL 

ZROHDR 

VSA 

USRDEF 

XMCONV 

STGEOM 

SETFLG 

MIEINP 

ISRAEL 

GETSLR 

SPTRIG 

GETPOS 

MONTH 

CHTIME 

CAL  END 

GETEXO 

GETCLD 
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USRCLD 

GETBCK 

USRBCK 

PARSE 

GETATM 

NCHSEA 

NCHAZE 

NCHATM 

NCHAER 

MRNDFL 

LWCASE 

IGTVEC 

GETVAR 

GETASP 

IGTINT 

FILRT 

FILOPN 

EXOTMP 

DFLT8 

GETVEC 

DVINCR 

DFLT2 

MDLATM 

IDAERO 

DEFALT 

EXOATM 

CIRRUS 

BINFIL 

RDLINE 

LENSTR 

LCTRIM 

FLSTAT 

UPCASE 

DISEND 

CHKVER 

CHKRST 

BEAUFT 

DBINIT 

CONFIG 

CNSTNT 

SUB 

MUL 

DSUB 

DMUL 

DIV 

DDIV 

DADD 

ADD 

ATMOUT 

ZROINT 

GETHDR 

BCKPRN 

BCKINT 

ATMPRN 

SETBCK 

MODBCK 

INTR2D 

RELHUM 

SATUR 

PRALT 

INDXBK 

GBLBCK 

RDSCN 

IBKCNV 

CITIES 

RDGBL 

SEAICE 

AIRTMP 

ATMINT 

lOERR 

GERROR 

FILTER 

XTERP 

IBNSRC 

7.8.4  MRFLTR  Common  Block  Cross-Reference  List 

Coininon 

Block  BCKDAT 

used  in: 

ATMOUT 

BCKINT 

BCKPRN 

MRFLTR 

ZROINT 

Common 

Block  DEVICE 

used  in: 

ATMINT 

ATMOUT 

ATMPRN 

BCKINT 

BCKPRN 

DBINIT 

DEFALT 

DEVCBD 

DFLT8 

FLSTAT 

GETASP 

GETATM 

GETBCK 

GETCLD 

GETPOS 

GETSLR 

INITL 

MIEINP 

MRFLTR 

PUTCLD 

PUTSLR 

RDFLTR 

RDGBL 

RDSCN 

SUMFIL 

USRBCK 

USRCLD 

Common 

Block  FLAGS  used  in: 

ATMPRN 

BCKPRN 

BINFIL 

INITL 

ISRAEL 

MRFLTR 

PUTSLR 

SETFLG 

SUMFIL 

Common 

Block  HEADER 

used  in: 

ATMOUT 

ATMPRN 

BCKPRN 

DEFALT 

GETASP 

GETATM 

GETBCK 

GETCLD 

GETHDR 

INITL 

MRFLTR 

PUTCLD 

PUTSLR 

SETBCK 

SUMFIL 

USRDEF 

ZROHDR 

Common 

Block  INITAL 

used  in: 

INITL 

MRFLTR 

Common 

Block  CONSTN 

used  in: 

AIRTMP 

ATMOUT 

ATMPRN 

BCKPRN 

CNSTNT 

DBINIT 

DFLT2 

DFLT8 

EXOTMP 

FILTER 

GETSLR 

INITL 

MODBCK 

SATUR 

SPTRIG 

STGEOM 

USRDEF 

XTERP 

Common 

Block  INTSTO 

used  in: 

ATMINT 

ATMPRN 

ZROINT 

Common 

Block  ATMDAT 

used  in: 

ATMPRN 

ATMSBD 

BCKPRN 

DFLT2 

INITL 

SETBCK 

USRDEF 

Common 

Block  BACKGD 

used  in: 

ATMPRN 

BKGDBD 

GETBCK 

INITL 

SETBCK 

USRBCK 

Common 

Block  CHRCNM 

used  in: 

ATMPRN 

CHRCBD 

PUTCLD 

SUMFIL 

USRBCK 

Common 

Block  OUTPUT 

used  in: 

ATMPRN 

BCKPRN 

INITL 

Common 

Block  SCENES 

used  in: 

ATMPRN 

SCENBD 

SETBCK 

USRBCK 

Common 

Block  RSTART 

used  in: 

BINFIL 

Common 

Block  ANTECD 

used  in: 

DEFALT 

INITL 

Common 

Block  USERDF 

used  in: 

DEFALT 

GETASP 

USRDEF 

Common 

Block  MOLECP 

used  in: 

DBINIT 

DFLT8 

DVINCR 

SUMFIL 

USRDEF 

Common 

Block  UPRATM 

used  in: 

EXOATM 

UPPRBD 

Common 

Block  FLTRDT 

used  in: 

FILTER 

RDFLTR 

Common 

Block  MACHIN 

used  in: 

DEVCBD 

FLSTAT 

Common  Block  CLDRN  used  in: 

CLDRBD  GETCLD  PUTCLD  USRCLD 

Common  Block  ECOCNV  used  in: 

ECOSBD  IBKCNV 

Common  Block  INPTDT  used  in: 

INITL  INPTBD 

Common  Block  VSADTA  used  in: 

INITL  VSA 

Common  Block  MATERL  used  in: 

MIEINP 

Common  Block  INFLTR  used  in: 

INFLBD  RDFLTR 

Common  Block  SICEDT  used  in: 

SEAICE  SICEBD 

Common  Block  SOLIRl  used  in: 

SLRIBD  SLRCNT 

Common  Block  DEVCNM  used  in: 

DBINIT  DEVCBD  FILRT  RDGBL  RDSCN  SUNFIL 

Common  Block  USERNM  used  in: 

SUMFIL  USRDEF 

Common  Block  CLDUSR  used  in: 

USRCLD 

Common  Block  EXTMOL  used  in: 

EXMLBD  USRDEF 

Common  Block  STDMOL  used  in: 

STMLBD  USRDEF 

Common  Block  MOLDAT  used  in: 

MOLPBD  XMCONV 

Common  Block  ECOSYS  used  in: 

ECOSBD 

Common  Block  INPNDX  used  in: 

INPTBD 

Common  Block  MOLCON  used  in: 

MOLPBD 

7.9  PLTGEN 


7.9.1  PLTGEN  Subprogram  References 


PLTGEN  calls: 

CLSGKS 

CONFIG 

GETHDR 

lOERR 

LCTRIM 

OPNGKS 

PLTDRV 

PROMPT 

UPCASE 

CLSGKS  calls:  none 
CONFIG  calls:  none 
GETHDR  calls: 

lOERR 

lOERR  calls: 

GERROR 

GERROR  calls:  none 
LCTRIM  calls:  none 
OPNGKS  calls:  none 
PLTDRV  calls: 

AGSETC  AGSETF  AGSETI  APPEND  EZMXY  lOERR 

PROMPT  RDMSRT  UPCASE 

AGSETC  calls:  none 
AGSETF  calls:  none 
AGSETI  calls:  none 
APPEND  calls: 

LENSTR 

LENSTR  calls:  none 
EZMXY  calls:  none 
PROMPT  calls :  none 


SLITFN 


RDMSRT  calls: 

lOERR 

SLITFN  calls:  none 
UPCASE  calls:  none 

0  7.9.2  PLTGEN  Cross-Reference  List 


I 


AGSETC  called  by: 
PLTDRV 

AGSETF  called  by: 
PLTDRV 

AGSETI  called  by: 
PLTDRV 

AGUTOL  called  by: 
PLTDRV 

APPEND  called  by: 
PLTDRV 

CHRCBD  called  by: 
PLTDRV 

CLSGKS  called  by: 
PLTGEN 

CONFIG  called  by: 
PLTGEN 

EZMXY  called  by: 
PLTDRV 

GERROR  called  by: 
lOERR 

GETHDR  called  by: 
PLTGEN 

lOERR  called  by: 
GETHDR 

LCTRIM  called  by: 
PLTGEN 

LENSTR  called  by: 
APPEND 

OPNGKS  called  by: 
PLTGEN 

PLTBD  called  by: 
PLTDRV 

PLTDRV  called  by: 
PLTGEN 

PLTGEN  not  called 
PROMPT  called  by: 
PLTDRV 

RDMSRT  called  by: 
PLTDRV 

SLITFN  called  by: 
RDMSRT 

UPCASE  called  by: 
PLTDRV 


PLTGEN 


PLTDRV 


RDMSRT 


PLTGEN 


PLTGEN 


PLTGEN 


7.9.3  PLTGEN  Pre-Reauisite  Order  List 


RDMSRT 


f 


PLTGEN 

PLTDRV 

UPCASE 

RDMSRT 

SLITFN 

EZMXY 

APPEND 

LENSTR 

AGSETI 

AGSETF 

OPNGKS 

LCTRIM 

GETHDR 

lOERR 

GERROR 

CLSGKS 

7.9.4  PLTGEN  Common  Block  Cross-Reference  List 


Common  Block  HEADER  used  in: 

GETHDR  PLTDRV  PLTGEN  RDMSRT 


PROMPT 

AGSETC 

CONFIG 


547 


Common  Block  CHRCNM  used  in: 

CHRCBD  PLTDRV 

Common  Block  CHRPRM  used  in: 

PLTBD  PLTDRV 

Common  Block  PLTPRM  used  in: 

PLTBD  PLTDRV  RDMSRT 

Common  Block  RMODAT  used  in: 

PLTDRV  RDMSRT 

7.10  SCNGEN 


SCNGEN  calls: 

CNSTNT  COEFF  CONFIG  FM2D  GETVAR 

lOERR  LWCASE  PARSE  PROMPT  RDLINE 

TDFFT  TILEIT  UNI  UPCASE  XTERP 

CNSTNT  calls: 

ADD  DADD  DDIV  DIV  DMUL 

MUL  SUB 

ADD  calls:  none 
DADD  calls:  none 
DDIV  calls:  none 
DIV  calls :  none 
DMUL  calls:  none 
DSUB  calls:  none 
MUL  calls :  none 
SUB  calls:  none 
COEFF  calls: 

GAUS 

GAUS  calls: 

RUNIF 

RUNIF  calls: 

UNI 

UNI  calls:  none 
CONFIG  calls:  none 
FM2D  calls: 

GAUS 

GETVAR  calls: 

lOERR 

lOERR  calls: 

GERROR 

GERROR  calls:  none 
IGTINT  calls: 

lOERR 

LWCASE  calls:  none 
PARSE  calls: 

LCTRIM  LENSTR 

LCTRIM  calls:  none 
LENSTR  calls:  none 
PROMPT  calls:  none 
RDLINE  calls: 

lOERR  LCTRIM  LENSTR 

SCALE  calls: 

CORF 

CORF  calls: 

GAMMA  PCNU 

GAMMA  calls:  none 
KNU  calls: 

GAMMA 

TDFFT  calls: 

FOURl 

FOURl  calls:  none 


) 

IGTINT 

SCALE 

DSUB 


1 
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TILEIT  calls:  none 
UPCASE  calls:  none 
XTERP  calls: 

IBNSRC 

IBNSRC  calls:  none 

7.10.2  SCNGEN  Cross-Reference  List 


ADD  called  by: 

\  CNSTNT 

CNSTNT  called  by: 

SCNGEN 

COEFF  called  by: 

SCNGEN 

CONFIG  called  by: 

SCNGEN 

CORF  called  by: 

SCALE 

DADD  called  by: 

CNSTNT 

DDIV  called  by: 

CNSTNT 
DIV  called  by: 

CNSTNT 

DMUL  called  by: 

CNSTNT 

DSUB  called  by: 

CNSTNT 

FM2D  called  by: 

SCNGEN 

FOURl  called  by: 

TDFFT 

GAMMA  called  by: 

CORF  KNU 

GAUS  called  by: 

COEFF  FM2D 

GERROR  called  by: 
lOERR 

GETVAR  called  by: 

SCNGEN 

IBNSRC  called  by: 

XTERP 

IGTINT  called  by: 

SCNGEN 

lOERR  called  by: 

GETVAR  IGTINT  RDLINE 

KJSnJ  called  by: 

CORF 

LCTRIM  called  by: 

PARSE  RDLINE 

LENSTR  called  by: 

PARSE  RDLINE 

LWCASE  called  by: 

SCNGEN 
MUL  called  by: 

•  CNSTNT 

PARSE  called  by: 

SCNGEN 

PROMPT  called  by: 

Jf.  SCNGEN 

RDLINE  called  by: 

SCNGEN 

RUNIF  called  by: 

GAUS 


SCNGEN 
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SCALE  called  by: 

SCNGEN 

SCNGEN  not  called 
SUB  called  by: 

CNSTNT 

TDFFT  called  by: 

SCNGEN 

TILEIT  called  by: 

SCNGEN 
UNI  called  by: 

RUNIF  SCNGEN 

UPCASE  called  by: 

SCNGEN 

XTERP  called  by: 

SCNGEN 

7.10.3  SCNGEN  Pre-Reauisite  Order  List 


SCNGEN 

XTERP 

IBNSRC 

UPCASE 

TILEIT 

TDFFT 

FOURl 

SCALE 

CORF 

KNU 

GAMMA 

RDLINE 

PROMPT 

PARSE 

LENSTR 

LCTRIM 

LWCASE 

IGTINT 

GETVAR 

lOERR 

GERROR 

FM2D 

CONFIG 

COEFF 

GAUS 

RUNIF 

UNI 

CNSTNT 

SUB 

MUL 

DSUB 

DMUL 

DIV 

DDIV 

DADD 

ADD 

7.10.4  SCNGEN  Common  Block  Cross-Reference  List 

Coininon  Block  CONSTN 

[  used  in: 

CNSTNT 

COEFF 

FOURl 

KNU 

SCNGEN 

XTERP 

Common  Block  PIXEL 

used  in: 

SCNGEN 

7.11  TERTEM 

7.11.1  TERTEM  Suboroaram  References 

TERTEM  calls: 

AECALC 

CNSTNT 

CONFIG 

FILRT 

GETHDR 

GETVAR 

GETVEC 

HTBLNC 

IGTINT 

INTR2D 

lOERR 

LWCASE 

PARSE 

PROFAC 

PROMPT 

RDLINE 

RDUSRM 

SATUR 

SEATMP 

SPCLYR 

UPCASE 

XTERP 

AECALC  calls: 

PLANCK 

PLANCK  calls:  none 

CNSTNT  calls: 

ADD 

DADD 

DDIV 

DIV 

DMUL 

DSUB 

MUL 

SUB 

ADD  calls:  none 
DADD  calls:  none 
DDIV  calls:  none 
DIV  calls:  none 
DMUL  calls:  none 
DSUB  calls:  none 
MUL  calls:  none 
SUB  calls:  none 
CONFIG  calls:  none 
FILRT  calls: 

LCTRIM 

LCTRIM  calls:  none 
GETHDR  calls: 

lOERR 


LCTRIM 


LENSTR 


lOERR  calls: 

GERROR 

GERROR  calls:  none 
GETVAR  calls: 

lOERR 
GETVEC  calls: 

lOERR 

LENSTR  calls :  none 
HTBLNC  calls: 

SRFLUX 
SRFLUX  calls: 

EVAPOR 
EVAPOR  calls: 

XTERP 

XTERP  calls: 


SATUR 


IBNSRC 
IBNSRC  calls: 
SATUR  calls: 
IGTINT  calls: 

lOERR 
INTR2D  calls: 
LWCASE  calls: 
PARSE  calls: 

LCTRIM 
PROFAC  calls: 

IBNSRC 
PROMPT  calls: 
RDLINE  calls: 

lOERR 
RDUSRM  calls: 

GETVAR 
NCHTER  calls: 

LCTRIM 
UPCASE  calls: 
SEATMP  calls; 
SPCLYR  calls: 

DENAIR 
THCICE 
DENAIR  calls: 

VIRIAL 
VIRIAL  calls: 

XTERP 
DENWTR  calls: 
SPHAIR  calls: 
SPHICE  calls: 

XTERP 
SPHWTR  calls: 

XTERP 
THCAIR  calls: 
THCICE  calls: 

XTERP 
THCSNW  calls: 
THCWTR  calls: 

XTERP 


none 

none 


none 

none 

LENSTR 


none 

LCTRIM 

NCHTER 

UPCASE 

none 

none 

DENWTR 

THCSNW 


none 

none 


none 


none 


LENSTR 

RDLINE 


SPHAIR 

THCWTR 


7.11.2  TERTEM  Cross-Reference  List 


UPCASE 


SPHICE 


SPHWTR 


ADD  called  by; 

CNSTNT 

AECALC  called  by; 
TERTEM 

ATMSBD  called  by: 
TERTEM 


THCAIR 


BKGDBD  called  by: 

RDUSRM  SPCLYR  TERTEM 

CHRCBD  called  by: 

TERTEM 

CNSTNT  called  by: 

TERTEM 

CONFIG  called  by: 

TERTEM 

DADD  called  by: 

CNSTNT 

DDIV  called  by: 

CNSTNT 

DENAIR  called  by: 

SPCLYR 

DENWTR  called  by: 

SPCLYR 

DEVCBD  called  by: 

FILRT  TERTEM 

DIV  called  by: 

CNSTNT 

DMUL  called  by: 

CNSTNT 

DSUB  called  by: 

CNSTNT 

EVAPOR  called  by: 

SRFLUX 

EXMLBD  called  by: 

TERTEM 

FILRT  called  by: 

TERTEM 

GERROR  called  by: 
lOERR 

GETHDR  called  by: 

TERTEM 

GETVAR  called  by: 

RDUSRM  TERTEM 

GETVEC  called  by: 

TERTEM 

HTBLNC  called  by: 

TERTEM 

IBNSRC  called  by: 

PROFAC  XTERP 

IGTINT  called  by: 

TERTEM 

INTR2D  called  by: 

TERTEM 

lOERR  called  by: 

GETHDR  GETVAR  GETVEC  IGTINT  RDLINE 

LCTRIM  called  by: 

FILRT  GETVEC  NCHTER  PARSE  RDLINE 

LENSTR  called  by: 

GETVEC  PARSE  RDLINE 

LWCASE  called  by: 

TERTEM 

MOLPBD  called  by: 

DENAIR 
MUL  called  by: 

CNSTNT 

NCHTER  called  by: 

RDUSRM 

OCNTBD  called  by: 

SEATMP 

PARSE  called  by: 

TERTEM 


} 
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PLANCK  called  by: 
AECALC 

PROFAC  called  by: 
TERTEM 


PROMPT  called  by: 

TERTEM 

RDLINE  called  by: 

RDUSRM  TERTEM 

RDUSRM  called  by: 

TERTEM 

SATUR  called  by: 

SRFLUX  TERTEM 

SEATMP  called  by: 

TERTEM 

SPCLYR  called  by: 

TERTEM 

SPHAIR  called  by: 

SPCLYR 

SPHICE  called  by: 

SPCLYR 

SPHWTR  called  by: 

SPCLYR 

SRFLUX  called  by: 

HTBLNC 
SUB  called  by: 

CNSTNT 

TERTEM  not  called 
THCAIR  called  by: 

SPCLYR 

THCICE  called  by: 

SPCLYR 

THCSNW  called  by: 

SPCLYR 

THCWTR  called  by: 

SPCLYR 

UPCASE  called  by: 

NCHTER  RDUSRM  TERTEM 

VIRIAL  called  by: 

DENAIR 

VIRLBD  called  by: 

VIRIAL 

XTERP  called  by: 

EVAPOR  SPHICE  SPHWTR  TERTEM 

VIRIAL 

7.11.3  TERTEM  Pre-Reauisite  Order  List 


TERTEM 

SPCLYR 

THCWTR 

THCSNW 

SPHWTR 

SPHICE 

SPHAIR 

DENWTR 

SEATMP 

RDUSRM 

RDLINE 

NCHTER 

PROMPT 

PROFAC 

PARSE 

LWCASE 

HTBLNC 

SRFLUX 

SATUR 

EVAPOR 

GETVEC 

LENSTR 

GETHDR 

lOERR 

LCTRIM 

CONFIG 

CNSTNT 

SUB 

DMUL 

DIV 

DDIV 

DADD 

PLANCK 

7.11.4  TERTEM  Common  Block  Cross-Reference  List 


Common 

Block  ATMDAT 

used  in: 

ATMSBD 

TERTEM 

Common 

Block  BACKGD 

used  in:  . 

BKGDBD 

RDUSRM 

SPCLYR 

TERTEM 

THCICE 


THCICE 

DENAIR 

UPCASE 

INTR2D 

XTERP 

GERROR 

MUL 

ADD 


THCWTR 


THCAIR 

VIRIAL 

GETVAR 

IGTINT 

IBNSRC 

FILRT 

DSUB 

AECALC 
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Coinmon  Block  CHRCNM  used  in: 

CHRCBD  TERTEM 

Coinmon  Block  CONSTN  used  in: 

CNSTNT  HTBLNC  PLANCK  PROFAC  SATUR  SPCLYR 

TERTEM  XTERP 

Common  Block  DEVICE  used  in: 

DEVCBD  TERTEM 

Common  Block  EXTMOL  used  in: 

EXMLBD  TERTEM 

Common  Block  HEADER  used  in: 

GETHDR  TERTEM 

Common  Block  MOLDAT  used  in: 

DENAIR  MOLPBD 

Common  Block  DEVCNM  used  in: 

DEVCBD  FILRT 

Common  Block  TMPOCN  used  in: 

OCNTBD  SEATMP 

Common  Block  VIRDAT  used  in: 

VIRIAL  VIRLBD 

Coinmon  Block  MACHIN  used  in: 

DEVCBD 

Common  Block  MOLCON  used  in: 

MOLPBD 

7.12  VISUAL 


7.12.1  VISUAL  Subprogram  References 


VISUAL  calls: 

CNSTNT 

COLOR 

CONFIG 

FILRT 

GETHDR 

HUMAN 

lOERR 

NRMLZ 

PROMPT 

SETFLG 

SUMFIL 

SUMIT 

CNSTNT  calls: 

ADD 

MUL 

DADD 

SUB 

DDIV 

DIV 

DMUL 

DSUB 

ADD  calls :  none 
DADD  calls:  none 
DDIV  calls:  none 
DIV  calls:  none 
DMUL  calls:  none 
DSUB  calls:  none 
MUL  calls:  none 
SUB  calls:  none 
COLOR  calls:  none 
CONFIG  calls:  none 
FILRT  calls: 

LCTRIM 

LCTRIM  calls:  none 
GETHDR  calls: 

lOERR 

lOERR  calls: 

GERROR 

GERROR  calls:  none 
HUMAN  calls: 

XTERP 

XTERP  calls: 

IBNSRC 

IBNSRC  calls:  none 
NRMLZ  calls:  none 
PROMPT  calls:  none 
SETFLG  calls:  none 
SUMFIL  calls: 

CHTIME  lOERR  LENSTR  PUTCLD  PUTSLR 

CHTIME  calls:  none 


LENSTR  calls:  none 
PUTCLD  calls: 

lOERR 
PUTSLR  calls: 

lOERR  SLRCNT 

SLRCNT  calls:  none 
SUMIT  calls :  none 

7.12.2  VISUAL  Cross-Reference  List 


ADD  called  by: 

CNSTNT 

CHRCBD  called  by: 

PUTCLD  SUMFIL 

CHTIME  called  by: 

SUMFIL 

CLDRBD  called  by: 

PUTCLD 

CNSTNT  called  by: 

VISUAL 

COLOR  called  by: 

VISUAL 

CONFIG  called  by: 

VISUAL 

DADD  called  by: 

CNSTNT 

DDIV  called  by: 

CNSTNT 

DEVCBD  called  by: 

FILRT  PUTCLD  PUTSLR  SUMFIL 

DIV  called  by: 

CNSTNT 

DMUL  called  by: 

CNSTNT 

DSUB  called  by: 

CNSTNT 

FILRT  called  by: 

VISUAL 

GERROR  called  by: 
lOERR 

GETHDR  called  by: 

VISUAL 

HUMAN  called  by: 

VISUAL 

IBNSRC  called  by: 

XTERP 

lOERR  called  by: 

GETHDR  PUTCLD  PUTSLR  SUMFIL 

LCTRIM  called  by: 

FILRT 

LENSTR  called  by: 

SUMFIL 
MUL  called  by: 

CNSTNT 

NRMLZ  called  by: 

VISUAL 

PROMPT  called  by: 

VISUAL 

PUTCLD  called  by: 

SUMFIL 

PUTSLR  called  by: 

SUMFIL 

SETFLG  called  by: 

VISUAL 


VISUAL 


VISUAL 
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SLRIBD  called  by: 

SLRCNT 

SLRCNT  called  by: 

PUTSLR 
SUB  called  by: 

CNSTNT 

SUMFIL  called  by: 

VISUAL 

SUMIT  called  by: 

VISUAL 

VISUAL  not  called 
XTERP  called  by: 

HUMAN 

7.12.3  VISUAL  Pre-Requisite  Order  List 


VISUAL 

SUMIT 

SUMFIL 

PUTSLR 

SLRCNT 

LENSTR 

CHTIME 

SETFLG 

PROMPT 

NRMLZ 

XTERP 

IBNSRC 

GETHDR 

lOERR 

GERROR 

LCTRIM 

CONFIG 

COLOR 

CNSTNT 

SUB 

DSUB 

DMUL 

DIV 

DDIV 

DADD 

7.12.4  VISUAL  Common  Block  Cross-Reference  List 

Common 

Block  CONSTN 

used  in: 

CNSTNT 

VISUAL 

XTERP 

Common 

Block  DEVICE 

used  in: 

DEVCBD 

PUTCLD 

PUTSLR 

SUMFIL 

VISUAL 

Common 

Block  FLAGS  used  in: 

PUTSLR 

SETFLG 

SUMFIL 

VISUAL 

Common 

Block  HEADER 

used  in: 

GETHDR 

PUTCLD 

PUTSLR 

SUMFIL 

VISUAL 

Common 

Block  MOLECP 

used  in: 

SUMFIL 

VISUAL 

Common 

Block  USERNM 

used  in: 

SUMFIL 

VISUAL 

Common 

Block  CHRCNM 

used  in: 

CHRCBD 

PUTCLD 

SUMFIL 

Common 

Block  CLDRN  used  in: 

CLDRBD 

PUTCLD 

Common 

Block  SOLIRl 

used  in: 

SLRIBD 

SLRCNT 

Common 

Block  DEVCNM 

used  in: 

DEVCBD 

FILRT 

SUMFIL 

Common 

Block  MACHIN 

used  in: 

DEVCBD 

PUTCLD 

HUMAN 

FILRT 

MUL 

ADD 
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